I 



( 

TSKST2 — Keyboard SET Command MACRO V05. 05 Thursday 19-Jan~89 14:58 



( 
I 

I. 

i 

I' 

I 

i 



I 
1 



I 
I 
( 
1 



Table of contents 



6— 1 SET commands 

I " 6— 2 Process 

14- 1 Terminal 

^ 24- 1 CL 

I ' 33- 1 Host 



I 

t 

K 



TSKST2 



Keyboard SET Command MACRO V05. 05 Thursday 19-Jan-89 14.58 Page i 



I 
I 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000000 
000000 



. TITLE TSKST2 

. ENABL LC 

. DSABL GBL 

. CSECT TSKST2 



— Keuboard SET Command routines 



TSKST2: 



TSKST2 is the portion of TSKMON that contains the code 
to implement the SET comnjand. 

Copyright 1978. 1979, 1980, 1981, 1932, 1983, 1934, 1985, 1986, 1987, 1988. 
S&H Computer Systems, Int:, 
Nashville, Tennessee 

Ma < r o calls 

. MCALL . CSISPC, . TTOUTR, . SRESET 

. MCALL . READW, . TTYJ.N, . TTYDUT, . PURGE 

. MCALL . CSIGEfvj, . SAVEST, . REOPEN 

. MCALL . GTLIN, . GTIM, . DATE, . SPFUN 

.MCALL . PRINT, . CLOSE, . LOOKUP 

. MCALL . WRITW, . ENTER, .EXIT 

. MCALL . SERR, . HfcRR, . FPHOT, . GVAL, , PVAL 

Global definitions 

. GLOBL SETCL, SETHST, SVT227, SVT228 

. GLOBL BETPRC, SETTTY, STVRFY, STNOVR, SVT50, SVTIOO, SVT200 

. GLOBL TSKST2, CMDHD, CMDOFF, KDOCIN, SKPSPC, UCLCMD 

. GLOBL DORUN, CMDFRM, CMDDSN, STLGCN, DATTIM, PRGALL 

. GLOBL DLCEMT, ALCDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 



Global references 



GLOBL EM*LAS, EM«LFD, EM*CLU, LWINDO, CLSFRS, LCXTBL, MXTTCT, EM*TMT 

GLOBL PA*GRC, PA*UKC, PA*DSC, PA«BLD, PA*ULN, PA*DWD, PA«HQL, PALLET 

GLOBL EM*PTA, EM*PTU, SBPSUF, CHKCLU, EM*CLX, PA*BEL, EM*OPR, PA*NWD 

GLOBL SCNOPS, TM*XBK, CL*XLN, CKCLUS, ACRSTR, R50KMN, SJEMT, RJEMT 

GLOBL PEKEMT, PEKADR, PEKSIZ, TM*NNR, CDBUF, CDGET, TM*IN1, TM*IN2 

GLOBL SYPSWD, EM*SPL, ACRTXT, JPWDEV, JPWTYP, JPWFLG, EM«BYP 

GLOBL EM«WCO, EM*WC1 , EM*WC2, EM*WC3, EM*WCM, P2*CGR 

GLOBL CXTRMN, R*CHN, R*XCHN, CHNSIZ, C. USED, CL*EPN, CL*EPS, CLEOFS 

GLOBL EM*STL, EM*IST, CLSFEP, EM*IDR, VPRIDF, SETWRD 

GLOBL CLRPRV, OPTLST, PESO, PFCO, PVNPW, PO*SPV, PRIVSO, PRVOPT 

GLOBL TM*PVA, TMfPVC, PRIVAO, EM*CNO, EM*CPD, EM*CAP, RSTPRV 

GLOBL CHKEQ, CKACOvi, PO*OPR, CKSYPV, P2*TRM, PRIVC2, PO*NAM, EM*NPR 

GLOBL INSTBL, INGADR, INGEMT, IIBUF, II«NAM, II$FLG, II«*SZ, EM*NAD 

GLOBL INSTBN, AF*SCA, AF*NOW, AF*MEM, PO*DBG, PRIVCO, PRVLST 

GLOBL ABRTAD, ABRTCD, CINFLG, *VNOTT, II*PRV, II*NPV, PO*BYP 

GLOBL TM*RD1, TM$RD2, TM«LCL, TM«GBL, SPACEl, RC«OWN, RC*CNT 

GLOBL RC*EXC, RC*AGE, RC*AEP, RC«USE, RC*FLG, RC*GBL, RC*NAM 

GLOBL RC*LEN, RC$PVT, RCBBAS, RCBEND, RC**SZ, SHRRCB, SHRRCN 

GLOBL LP*SPD, LP*PAR, LP*ODD, LP«7BT, EM*ICL, PROSLT, RC*LCG 

GLOBL EM*NPD, EM*ILN, EM«CIP, EM*NSF, EM*IUN, EM*CLN, EM«IVN 

GLOBL EM*ILN, EM*ACL, EM«TSL, EM*CLB, EM*NSL, EM*SLT, EM*SLW 

GLOBL SLKDON, SLKDOF, EM*UIO, TM*PR1, TM*PR2, TM*LPR, TM*HPR 

GLOBL TM«HPE, TM«CNG, TM«CDS, TM«CEN, TRMHDl, TRMHD2, AT«DEV 

GLOBL OPRTXT, CLLINE, LCLTXT, REMTXT, TMSAUT, CLFREE, CLUNIT, CLVERS 
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GLOBL TMtCLO, TM$CL1, TH*CL2, TM*CL3, TM$CL4, TM*CL5, TM*CL6 

GLOBL QHDMSl, QHDtiS2> DVSHHl, DVSHH2, DVSHH3, SYASHD, DKASHD 

GLOBL TM*NAD, ALCHDl . ALCHD2, TM*NSD> TMSSDN, LNAME 

GLOBL CORUSR, LSW, *CTRLO. SERFLG, lOABFL. «CHACT, *STSNG 

GLOBL LSTHL, LCLUNT, FSTIOL> LSTIOL, CL*LIX, CW*PRO> C0NFG2 

GLOBL CL*RQH, CL«WOH, MAXALC, ALCTBL, ALCEND 

GLOBL AD*DVU, AD*JOB> AD**SZ, UCIDEF, HANCHN 

GLOBL NEDCHR, LOUTIR, LINIR, LINRTS, CLOTIR 

GLOBL CO*DEF, CL*COL, LCDTYF, SOPALC, SOPDAT, SOPTIM 

GLOBL UTRPAD, JSWLOC> ERRLOC. MAXMEM, MAXPRI 

GLOBL USRSTK, *KINIT, CFSTK, MXJMEM, DFJMEM, EM*HNI 

GLOBL SPUBUF, SXBFNT, MXJADR, CLSFCH 

GLOBL TMTOTH. TMTOTL. TMUSRH, TMIOWH, LDMNT, EM*CSE 

GLOBL TMSWTH. THIDLH, TMIOH. TMSWPH, LDCLEN 

GLOBL WILDFL,*NOIN, *NOWTT, *HITTY 

GLOBL TECO, EDIT, KED, K52, *1STLG, *DIBOL 

GLOBL SH*VAL, SH*NAM, SH**SZ, SH*RTN, SH*FLG 

GLOBL SO*NVL, SO*OCT> SO*NO, HANENT, HANSI2 

GLOBL H. CSR> H. VEC, DVSTAT, SFID, ACRSPD, HANPAR, LSTSPL 

GLOBL HAZEL, HAZLFL, HAZLNO, *MLOCK, MDT, GETKCH 

GLOBL LINBUF, LINNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG, FSTIOL 

GLOBL LINPNT. LINCNT, LACTIV, LRDTIM, CS*RON 

GLOBL LOTBUF, LOTNXT, LOTPNT, *VTESC 

GLOBL LOTSIZ, LOTSPC, LCOL, «SLKED, ESC, VDBFLG 

GLOBL LAFSIZ, LFWLIM, LINCUR, NUMON, ILSW2 

GLOBL $DBKMN 

GLOBL *CARUP, DOASGN, URMNAM, *UKMON, LSW9 

GLOBL LSUCF, *CCLRN, VLDSYS, EM*NUK, S*QMIO 

GLOBL KL3CLR, *PRGLK, LSW5, PVON, S*SPND, *AUTO 

GLOBL S*TWFN, S*TTFN, S*OTFN, S*IOFN, S*OTLO 

GLOBL LSTDL, FSTDL, «DETCH, UMSYTP, S*TTSC 

GLOBL *DISCN, LPROJ, LPROG, LUNAME, S*RT, S*LOW 

GLOBL LCPUHI, LCPULO, LCONTM, *CTRLS, *SPLJB, TXTCL 

GLOBL STPFLG, TOTON, USPLCH, SPLCHN, S*HICP 

GLOBL S*INWT, S*OTWT, S*TMWT, S*SFWT, S9600 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMIMCHN 

GLOBL MINTIM, LSECPT, MAXSEC, $EMTTR, VCSHNB 

GLOBL OKFILE. OKFEND, *CLTST, UC ISPC, MHNSI Z 

GLOBL CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

GLOBL CASTRO, CASTWD, CLTOTL, CO*DTR, CLSFSP 

GLOBL CO«CR, CO«FF, CO*FFO, CO*LC, CO$TAB, CO*CTL 

GLOBL CO*LFI, CO*LFO, CO*BNI, CO*BNO, CL*OPT 

GLOBL CL*LEN, CL*SKP, CL*WID, CL*LIN, PHYMEM 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VI MAGE 

GLOBL USTART, OENTDP, BDTDEV, BOTUNI, CSHALC 

GLOBL *CTRLC, LSW2, $INKMN, CHAIN, UFORM 

GLOBL *SGQO, *SG03, LITIME 

GLOBL MAXASN, *CFABT, INDSTA, INDERR 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL LSW3, LSW2S, *DUPRN 

GLOBL *FORM, *TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

GLOBL *PAGE, *SCOPE, *ECHO, *LC, *8BIT, CHKALC, SALTER 

GLOBL UCHAN, *FORMO, *CFALL, *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG, *SUCF 

GLOBL *DOOFF, NUCHN, LRBFIL, CFIND, TALEMT 
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GLOBL C. CSW, C. DEvQ, C. SBLK, NLINES, CO*BBT 

GLOBL CD«NAM, CD*DVU, CD*BAS, CD* JOB, CD**SZ, CD**UB 

GLOBL LTBCMD, LNBPAC, CFNEST, UCLNAM 

GLOBL *CFOPN> CFSEND, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*FLK, SD*WFM, SDFORM, *UCLRN 

GLOBL SDBUFl , SDBLK, NSPLDV, LD*RON, *UCLCM, *UCLCL 

GLOBL LDNAME, LDSIZE> LDFLAG, LDBASE, LDPDEV 

GLOBL LSW8. *SGQ1> *SGQ1A, *SGQ1B, fSGQlC, *SGQ2, f SGI 10, $SGHID 

GLOBL *DEFER, CFCHAN, SCHAIN, LDDEVX, *SGALL 

GLOBL CFPNT, CFBLK, *QUIET, DIABFL 

GLOBL DIABNO, VT52ND, LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, 3DSKIP, SDBU, SD*BAK 

GLOBL «INCOR, *KED, VQUNIB, VIWTIO, VQUNIC 

GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

GLOBL SD*HLD, SF*HLD, CURPRM, PRMPNT, SF*1ST 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD, LDGDVU, LOGBAS 

GLOBL LCOL, *QTSET, «TECO, CD*TOP, LOGCHK 

GLOBL $WILD, ERRSEV, UERSEV, PASLIN, LOGBAS, LOGDVU 

GLOBL LSTPL, SDCB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUAIMl, VGUNIA, V(.iUAN2, VHIPCT, VQUANO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR, ASNSRC 

GLOBL VCORTM, NUMDCD, VNUMDC, KMPRMT, MXPRMT 

GLOBL RDB, RDBEND, RT*NAM, RT«*SZ, CLDEVX, SDDVU 

GLOBL SDNAME, SDCBSZ, LSTSL, LSTATE 

GLOBL TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP, LOMAP, HI MAP, JCXPGS 

GLOBL SMRSIZ, SRTSIZ, CSHSIZ, TKISEC 

GLOBL TSXLN, TSXSIT, GRTl. TRGRET, LICTXT, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPROl, LPRG2, S*QUSR, S*IOWT, S*SFWT 

GLOBL S*SPDB, S*SPCB, SFUSER, SFFILE, VT200, VT2007, VT2008 

GLOBL LCBIT, LA36, LA120, VT52, VTIOO, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VT 1 OFL, VT 1 ONO, QUMEFL, QUMEND, ADM3FL 

GLOBL VT20FL, VT20N0 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL OF*DEV, 0F*UNT, 0F*FIL, 0F*FLG, SYNAME 

GLOBL OF**SZ, 0T*R0N, RESDEV, *TAPE 

GLOBL KMNBAS, ODTBAS, *CTRLD 

GLOBL LSW6, *SNWTT, PF*SYS, PF*IOW, *DEBUG 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL *INDDF, *INDRN, IN*ACT, IN«CNT, IN*CMD, INDSAV 

GLOBL $PHONE, INVEC, LMXLN, MXVEC, *INIT, «DEAD, SHARD 

GLOBL ITRMTP, LMXPRM, LSW7, *INDAB, CFSTS, CF*IND, CF*QUT 

GLOBL CFABLV, MONVEC, LBSPRI, MAXPRI, MXJPRI, LPRI, *SYSPS 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LF*OPN, LFfWRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC*CDX, FC«LNK, FD*NAM, UC*NDC, UC*MDC, CVTUC 

GLOBL CMDBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

GLOBL INVOPT, FKILL, ABR TCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ASNOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, INVOPT, ILLCMD 
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OLOBL R50LD> INVLDN> R50DSK. AGRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2. CKPRIV, RSOND, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDEC DEVUNT, PNAME, HNBUF, CKTERM 

GLOBL ACROCT, HANBSY, CSIMSl . MISSEQ. NOIND. POPCF 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS. R50L0G 

GLOBL BDLOOP, SPLHLA. NOCCL. LDOPHD, PRTFI X, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP. NATXT, SPDTXl, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHDl , SYHD2, PRTLN, SPACE2, DETTXT, SPACES, RNMS 

GLOBL SWFTX, LOCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC, DEVHDl , ASNHDl , ASNHD2, SHMTHl , SHMTH2, PRTTMD 

GLOBL CVDVNM, SPACE6> PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

GLOBL 3UBAR0, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGS, MNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MONHD, MONARl, NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG 

GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMTALL 

GLOBL SHTMSO, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL, PRTPCT, SUMl, SUM2, SUMS, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS, CHKTTD 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARO, HUPARG, R50TT 

GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL AR*PRJ, AR*PRG, AR*CON, AR*CNT, AR*CPH, AR*CPL, ARSUNM 

GLOBL AR*DMY, AR*«SZ, ARNRPB, *SLON, *SLTTY, «SLLET 

GLOBL PRTWRN, SLMXLN, VSLEDT, *LOFCF, CSHMSG 

GLOBL AF*HIE, AF*NOI , *NOINT, AF*PLK, AF$DBG 

GLOBL AF*IOP,*RNIOP 
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CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 
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# OF WORDS IN DISK BLOCK 
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( 
I 
I 
I 

f 

I 

t 

c 
i 

I 
1 

< 

I 

( 

i 



i 

i 



I 
I 



TSKSTc 



Keyboard SET Command MACRO V05. 05 Thursday i9-Jan-89 14:58 Page 3 



f 
I 

c 

( 

( 

I 

I 

f 

I 

< 

< 

i 

I 



J. 

c 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
23 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5, -<SP) 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+, R5 

. ENDM FERR 



Macro to print a fatal error message^ clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message 

. MACRO FWARN MSG 

MOV R5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV <SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 



NARGS 



NAME'HD: .WORD 
. ENDM 



. MACRO TBLDEF NAME, NA 

NA 
. CSECT CMDVS2 

2*NA 

TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STHNG -~ Ascii name 

A, B, C = Set of option parameters to store in table with name. 



MACRO CMDDEF STRNG, A, B, C 
CSECT NAMES2 





. ASCI2 


/STRNG/ 








. CSECT 


CMDVS2 








. WORD 


L 




> 




WORD 


A 






. IIF 


GE, <NARGS-2:> 


. WORD 


B 


. IIF 


GE, <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 







i POINTER TO NAME STRING 
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59 i Macro to end a set of table entries. ' 

60 i 

61 . MACRO TBLEND 

62 . CSECT CMDVS2 * 

63 . WORD 

64 . CSECT TSKST2 

65 . ENDM TBLEND * 

i 

i 
i 
i 
f 
( 
1 
( 
I 
< 
I 

t 
« 
i 

( 

I 



I 
t 

f 

» i 

( 

t 

> I 
f 

I 

( 
I 

i 
i 

i 



TSKST2 — Keyboard SET Command HACRO V05. 05 Thursday 19-Jan-S9 14:58 Page 4 



1 






2 






3 






4 


000000 


125017 


5 


000004 


012256 




000012 


000000 


6 


000014 


012276 


7 


000016 


013666 


e 


000020 


000000 


9 






10 






11 






12 




000001 


13 




000002 


14 




000004 


15 






16 


000022 


000 


17 


000023 


000 


IS 


000024 


000 


19 


000025 




20 






yi 






22 






23 






24 


000042 


000 


25 


000044 


000000 


26 


000046 


000000 


27 






28 






29 






30 


000050 


001 


31 


000052 


000000 


32 






33 






34 






35 


000054 


002 


36 


000056 


000000 


37 






38 






39 






40 


000060 


000 


41 


000062 


000013 


42 


000064 


000000 


43 






44 






45 






46 


000066 


000 


47 


000070 


000000 


48 


000072 


000000 


49 






50 






51 






52 


000074 


00 .1 


53 


000076 


000000 


54 






55 






56 







Data areas 



074773 R50HST: . RAD50 /*HOST«/ 

000000 000000 CLDEV: . RAD50 /CLN 



155 



155 



155 



126 



154 



154 



R50CL0 
R50C10 
CPFLAG 



. RAD50 /CLO/ 
. RAD50 /CIO/ 
. WORD 



Flags stored in CPFLAG 



CPF3US 


= 


1 


CPFRE3 


= 


2 


CPFAUT 


=s 


4 


SETPRM: 


. BYTE 





CPPID: 


. BYTE 





CPPRIO: 


. BYTE 





CPNAME: 


. BLKB 


12 




. EVEN 





i tjuspena process 

: Resume process 

; Set authorized privileges 

; Indicates if SET is temp or perm 
, Process ID for SET PROCESS command 
; Priority value for SET PROCESS command 
; Name buffer for SET PROCESS command 



Emt to assign a CL line to a time-sharing line 



CLAEMT: . BYTE 0, 155 
. WORD 
. WORD O 



i CL unit number 

: 1 -incb r>timho*n 



Emt to clear XOFF status for a CL line (SET CLn XONBYPASS) 

CLXEMT: .BYTE 1,155 

.WORD ; CL unit number 

Emt to completely reset a CL line (SET CLn RESETBYPASS) 

CLREMT: .BYTE 2,155 

.WORD O ; CL unit number 

Emt to cross connect our time-sharing line with a CL unit 



TTXCL: 



. BYTE 
. WORD 
. WORD 



0> 126 

13 





Emt to set line speed 

LSPEMT: . BYTE 0, 154 

. WORD 

. WORD 



Line number 
Speed code 



Emt to reset XOFF status for a TT line 

XONEMT: . BYTE 1, 154 
. WORD 

Eiif to set/reset DTR for a line 



f 
I 

c 

I 

4 



{ 
I 
< 

i 
i 
< 
I 

< 

i 
i 
c 
i 
i 
i 



( 

I 

f 
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I 

i 



I 
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57 


000100 


002 


154 


58 


000102 


000000 




59 








60 








61 








62 


000104 


001 


150 


63 


000106 


002 


001 


64 


000110 


OOOOOOG 




65 


000112 


000000 




66 








67 








68 








69 


000114 


001 


150 


70 


000116 


001 


001 


71 


000120 


OOOOOOG- 




72 


000122 


000000 




73 








74 








75 








76 


000124 


000 


126 


77 


000126 


000020 




7S 


000130 


000000 




79 








80 








«1 








82 


000132 


007 


161 



rOCMT 
I l^L.I t f , 

Emt 
PVSEMT: 



sums raise DTR <3, 154 = drop DTR) 



. WORD 

to set privilege flaqs 

.BYTE 1,150 

. BYTE 2, 1 

. WORD PESO 

. WORD 

Emt to clear privilege flags 



I V V^lMl I I . 



Emt 
STAEMT: 

Emt 
WIMSTT: 



. BYTE 1, 1 
. WORD PFCO 
. WORD 

to start an inactive line 

. BYTE 0, 126 
. WORD 20 
. WORD O 

to declare terminal type change to process tuindowing system 

. BYTE 7. 161 



i 

I 

i 
c 
f 

t 
I 
c 
( 

( 
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1 

2 




3 




4 


000134 


5 


000002 


6 


000012 


7 


000022 


S 


000032 


9 


000042 


10 


000052 


11 


000062 


12 


000072 


13 


000102 


14 


000112 


15 


000122 


16 


000132 


17 


000142 


18 


000152 


19 


000162 


20 


000172 


21 


000202 


22 


000212 


23 


000222 


24 


000232 


25 


000242 


26 


000252 


27 


000262 


28 


000272 


29 


000302 


30 


000312 


31 


000322 


32 


000332 


33 


000342 


34 


000352 


35 


000362 


36 


000372 


37 


000402 


38 


000412 


39 


000422 


40 


000432 


41 


000442 


42 


000452 


43 


000462 


44 


000472 


45 


000502 


46 


000512 


47 


000522 


48 


000532 


49 


000542 


50 


000552 


51 


000562 


52 


000572 


53 


000602 


54 


000612 


55 


000622 


56 


000632 


57 


000642 



Options for SET TT command 



TBLDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 



TT, 3 

ADM*3A, SADM3A, 0, 

AL*TERNATE, SETTTB, 



LSW2, SALTER 



AUTO*BAUD, SAUTO, 0, 

NOAUTO*BAUD, CLRTTP, LSW2, $AUTa 

BIT*S, STCLEN, O, 

DEAD, SETDED, LSW3. «DEAD 

NODEAD, CLRTTP, LSW3, *DEAD 

DEC#WRITER, STLA36, 0, 

DEF^^ER, SETTTB, LSW2, *DEFER 

NOD*EFER, CLRTTB, LSW2, *DEFER 

DI*ABLO> SDIAB, O, 

DT«R, SETDTR, O, 

NDDT#R, CLRDTR, 0, 

E*CHO, SETTTB, LSW2, *ECHO 

NOE#CHD, CLRTTB, LSW2, *ECHO 

EIGHT#BIT, SETTTB, LSW2, *SBIT 

N0EIGHT»B1T, CLRTTB, LSW2, *SBIT 

FORM, SETTTB, LSW2, *FORM 

NOFORM, CLRTTB, LSW2, «FORM 

FORMO, SETTTB, LSW4, $FORMO 

NOFORMO, CLRTTB, LSW4, *FDRMO 

G»AG, SETTTB, LSW7, $TTGAG 

NOQttAG, CLRTTB, LSW7, *TTGAG 

HAZEL*TINE, STHAZL, 0, 

HO*LD, RDCMD, O, 

NOH*OLD, RDCMD, 0, 

LA 1*20, SLA 120, 0,0 

LA3*6, STLA36, 0, 

LC, SETTTB, LSW2, *LC 

NOL*C, CLRTTB, LSW2, *LC 

LE*NGTH, RDCMD, O, 

PAG#E, SETTTB, LSW2, *PAGE 

NOP*AGE, CLRTTB, LSW2, *PAGE 

PAR-K-ITY, SETPAR, 0, O 

NOPAR#ITY, STNOPR, 0, 

PHO*NE, SETTTP, LSW2, *PHONE 

NOPHO*NE, CLRTTP, LSW2, *PHDNE 

QUI*ET, SETQUT, O, 

NOQ*UIET, RSTQUT, 0, 

QUM»E, SQUME, O, 

SC*aPE, SETTTB, L3W2, *SCOPE 

NDSC*OPE, SETNSC, 0, 

SEVEN#BIT, CLRTTB, LSW2, *SBIT 

SI#IMGLE, SETTTB, LSW6, *STSNG 

NOSI«IMGLE, CLRTTB, LSW6, *STSNG 

SPE*ED, STTTSP, 0, 

STA*RT, STTTST, O, 

STAN«DARD, CLRTTB, LSW2, SALTER 

STD, CLRTTB, LSW2, *ALTER 

SYSP#ASSWORD, SETTTP, LSW2, *SYSPS 

NOSYSP*ASSWORD, CLRTTP, LSW2, *SYSPS 

SYSPS, SETTTP, LSW2, *SYSPS 

NOSYSPS, CLRTTP, LSW2, *SYSPS 



I 

i 
i 

f 
I 

i 



i 
f 
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58 


000652 


59 


000662 


60 


000672 


61 


000702 


62 


000712 


63 


000722 


64 


000732 


65 


000742 


66 


000752 


67 


000762 


68 


000772 


69 


001002 


70 


001012 


71 


001022 


72 


001032 


73 


001042 


74 


001052 


75 


001062 


76 


001072 


77 


001102 


78 


001112 


79 


001122 


BO 


001132 


81 




82 




83 




84 


000134 


85 


001136 


86 


001146 


87 


001156 


38 


001166 


89 




90 




91 




92 




93 


000134 


94 


001172 


95 


001200 


96 


001206 


97 


001214 


98 


001222 


99 


001230 


100 


001236 


101 


001244 


102 


001252 


103 


001260 


104 


001266 


105 


001274 


106 


001302 


107 


001310 


108 


001316 


109 


001324 


110 


001332 


111 


001340 


112 


001346 


113 


001354 


114 


001362 



CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
TBLEND 



3YSP*WD, 3ETTTP, LSW2> *SYSPS 
NOSYSP*WD, CLRTTP, LSW2. tSYSPS 
TAB, SETTTB, LSW2, *TAB 
NOTAB, CLRTTB, LSW2, *TAB 
TAP#E, SETTTB, LSW2> fTAPE 
NOTAP#E, CLRTTB, LSW2, *TAPE 
TR*ANSLATE, STTRNS, 0, O 



€ 
f 






> 










VT1#00, SVT100» 24. 
VT2»00, SVT200, 24. 
yT220, SVT200, 24. , 
VT2207, SVT227, 24. 
VT2208, SVT228. 24. 
VT240, SVT200, 24. , 
VT241,SVT200. 24. , 
VT5*0, SVT50, 12. ,0 
VT5#2> SVT50, 24. , 
W«AIT, SETTW, 0, 
NOW*AITi SETTNW, 0, 
XON, SETXDN, O, 
8BIT, SETTTB, LSW2, *8BIT 
N08BIT, CLRTTB, LSW2, ^SBIT 
7BIT, CLRTTB, LSW2, *SBIT 



I 
I 

i 



Define options for SET T'f tn:! PARI rY= command 

TBLDEF PAR, 3 

CMDDEF E«VEN, STPAR, LP«PAR 

CMDDEF 0*DD, STPAR, LP*PAR i LP*ODD 

CMDDEF N#ONE, STPAR, 

TBLEND 



Define options for the SET CLn command 

TBLDEF CLOP, 2 

CMDDEF BIT*S, STCLBT, O 

CMDDEF CR, STCLOP, CO*CR 

CMDDEF NOCR, CLCLOP, CO*CR 

CMDDEF DTR, STCLOP, CO*DTR 

CMDDEF NODTR, CLCLOP, CO*DTR 

CMDDEF ENDP*AGES, STCLVL, CL*EPN 

CMDDEF ENDS*TRING.CLESTR,0 

CMDDEF FORM, STCLOP, CO*FF 

CMDDEF NOFORM, CLCLOP, CO«FF 

CMDDEF FF, STCLOP, CO*FF 

CMDDEF NOFF, CLCLOP, CO*FF 

CMDDEF FORMO, STCLOP, CO*FFO 

CMDDEF NOFORMO, CLCLOP, CO*FFO 

CMDDEF GR#APH, STCLGR, O. 

CMDDEF NOOR«-APH, STCLGR, 132. 

CMDDEF LC, STCLOP, CO*LC 

CMDDEF NOLO, CLCLOP, CO^LC 

CMDDEF TAB, STCLOP, CO*TAB 

CMDDEF NOTAB, CLCLOP, CO*TAB 

CMDDEF CTRL, STCLOP, CO*CTL 

CMDDEF NOCTRL, CLCLOP, CO*CTL 



i 
( 

i 
i 
i 
( 
I 

( 

I 

I i 

;• 
I. 

f 



I 



< 
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d 


ii5 


001370 




ii6 


001376 




117 


001404 




US 


001412 




119 


001420 




120 


001426 




121 


001434 




122 


001442 




123 


001450 




124 


001456 




125 


001464 




126 


001472 




127 


001500 




128 


001506 




129 


001514 




130 


001522 




131 


001530 




132 


001536 




133 


001544 




134 


001552 




135 


001560 




136 


001566 




137 


001574 




138 


001602 




139 


001610 




140 


001616 




141 






142 






143 






144 


001624 




145 


001624 




146 


001632 




147 


001640 




148 






149 






150 






151 


000134 




152 


001644 




153 


001652 




154 


001660 




155 


001666 




156 






157 






158 






159 


000134 




160 


001672 




161 


001676 




162 


001702 




163 


001706 




164 






165 






166 






167 


000134 




168 


001712 




169 


001720 




170 


001726 




171 


001734 





SET Command MACRO V05. 05 Thursday 19-Jan-89 14:58 Page 5- 



CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
i These two fo 
i do their own 
i Leave them a 
CLNCKA: 

CMDDEF 
CMDDEF 
TBLEND 



LEN*GTH) STCLvL.- CL*LEN 

LFIN, STCLOP, CO«LFI 

NOLFIN, CLCLOP, C0*LFI 

LFOUT, STCLOP, CO*LF0 

NOLFOUT, CLCLOP, CO*LFO 

LIN#E, STCLLN, 

BININ, STCLOP, CO*BNI 

NOBININ, CLCLOP, CO*BNI 

BINOUT, STCLOP, CO$BNO 

NOBINDUT, CLCLOP, CO*BNO 

SB IT, STCLOP, COSSBT 

EIGHT#BIT, STCLOP, CO«SBT 

N08«BIT, CLCLOP, C0*8BT 

NOEIGHT»BIT, CLCLOP, CO*SBT 

7BIT, CLCLOP, C0*8BT 

PAR«ITY, STCLPO, CLPRHD 

NOPAR«ITY, STCLNP 

SEVEN*BIT, CLCLOP, C0*8BT 

TOP, CLTOP, 

TR*ANSLATE, CLTRNS, 

RES*ET, STCLRS, 

SKI*P, STCLVL, CL*SKP 

WID*TH, STCLVL, CL*WID 

SP*EED, STCLSP, O 

VER#SION, STCLVR, 

XON, STCLXN, 
rms do not require allocation 

separate checking for BYPASS 
t the end of the table. 

XONB*YPASS, STCLXB, 
RESETB«YPASS, STCLRB, 



of the CL 
privi lege 



device, they 
instead. 



Define options for SET CL PARITY= command 

TBLDEF CLPR, 2 

CMDDEF E*VEN, STCLPR, LP*PAR 

CMDDEF 0*DD, STCLPR, LP*PAR ! LP*ODD 

CMDDEF N*ONE, STCLPR, O 

TBLEND 

Define options for the SET HOST command 

TBLDEF HOST, 1 

CMDDEF DTE, HSTDTE 

CMDDEF CL, HSTDTE 

CMDDEF PO*RT, HSTPRT 
TBLEND 

Define options for SET PROCESS command 

TBLDEF CROP.. 2 

CMDDEF PRIV*ILEGES, PRVOPT, 

CMDDEF ID*ENTIFICATION, CPPPID, 

CMDDEF NAM*E, CPPNAM, 

CMDDEF PRIO#RITY, CPPPRI, 



i 

i 

i 

I 
i 
i 



i 
I 
I 

i 
i 
i 
i 

i 

f 
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173 001750 CMDDEF RES*UME, CPPFLG, CPFRES, 

174 001756 CMDDEF AU*THORIZED, CPPFLG, CPFAUT. 

175 001764 TBLEND 
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1 
2 
3 








4 








5 








6 


000134 






7 








8 








9 








10 


000134 


1 1 6767 


0000000 177661 


11 


000142 


105067 


177657 


12 


000146 


105067 


177652 


13 


000152 


005067 


177642 


14 


000156 


004767 


OOOOOOG 


15 








16 








17 








IS 


000162 


012704 


001710' 


19 


000166 


004767 


0000000 


20 








21 








22 








23 


000172 


004767 


000366 


24 


000176 


004767 


000644 


25 


000202 


00476/ 


000464 


26 


000206 


004767 


000676 


27 








28 








29 








30 


000212 


000167 


ooooooe 



. •-313 1 fL >3G ! commanos 

. SBTTL . Prut e&s 



i Process the SET PROCESS command. 

f 

SETPRC: 

i Initialize cells which will hold values parsed by the command 



MOVB CORUSR,CPPID 

CLRB CPNAME 

CLRB CPPRIO 

CLR CPFLAG 

CALL CLRPRV 

Do command parsing 

MOV #CPOPHD, R4 

CALL OPTLST 



/Set process ID=our job 

; No name specified 

i No priority 

i No flags 

i No privi leges 



jPoint to option driver list 
i Parse the command 



Now process each option that was accrued 



CALL 


CPSNAM 


CALL 


CPSPRI 


CALL 


CPSPRV 


CALL 


CPSFLG 



9*: 



Finished command 

JMP RDCMD 



; See if process name was specified 

/See if priority was specified 

; See if privileges were specified 

i See if flags were specified 



/Finished c omman d 



I 



I ( 



I 
I 



I 

I* 

I ( 

I 



> ( 



\ 



i 



I < 

I * 

' I 



2 








3 








4 


000216 


010146 




5 








6 








7 








& 


000220 


004767 


0000000 


9 








10 








11 








12 


000224 


006301 




13 


000226 


001413 




14 


000230 


020127 


OOOOOOG 


15 


000234 


iOiOiO 




16 


000236 


032761 


OOOOOOG 


17 


000244 


001410 




18 


000246 


110167 


177551 


19 








20 








21 








22 


000252 


012601 




23 


000254 


000207 




24 








25 








2i> 








27 


000256 






28 


000266 
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SET PROCESS/ IDENTIFICATION= job-number 
CPPPID: MOV R1,-<SP) 
Accrue the ID value 
CALL ACRDEC 
Make sure the ID value is valid 



ASL 


Rl 


BEG 


10* 


CMP 


R 1 , #LST3L 


BHI 


10* 


BIT 


#*DILUP>LSW<R1) 


BEQ 


11* 


MOVE 


R1,CPPID 


j Fini&hed 




MOV 


(SP)+, Rl 


RETURN 




J Invalid ID 




10*; FABORT 


#EM*ILN 


11*: FABORT 


#NOTON 



Convert to word table index 

Invalid if zero 

Is this a valid job #? 

Br if not 

Is line logged on? 

Br if not 

Save ID value 



j Invalid job numver 
i Line not logged on 



I 
I 
f 



f 

c 

f 
c 

f 
i 
i 
i 
i 

€ 
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I 

I 
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4 


000276 


010146 




5 


000300 


010546 




6 








7 








8 








9 


000302 


004767 


0000000 


10 








11 








12 








13 


000306 


005701 




14 


000310 


003406 




15 


000312 


120167 


OOOOOOG 


16 


000316 


101003 




17 


000320 


110167 


177500 


IS 


000324 


000424 




19 








20 








21 








22 


000326 






23 


000342 


012705 


000001 


24 


000346 


004767 


OOOOOOG 


25 


000352 






26 


000360 


116705 


OOOOOOG 


27 


000364 


004767 


OOOOOOG 


28 


000370 






29 








30 








31 








32 


000376 


012605 




33 


000400 


012601 




34 


000402 


000207 





SET PROCESS/PR lOR I TV^va J ut> 



CPPPRI: MOV 
MOV 



R 1 , - ( SP ) 
R5, -<SP) 



Accrue the priority vaJiie 
ACRDEC 



^^Hl_L. 



j Accrue priority value 



See if the priority value is valid 



TST 

BLE 

CMPB 

BHI 

MOVE 

BR 



Ri 

10* 

Rl, MXJPRI 

10* 

R1,CPPRI0 

9* 



i Invalid priority value 

10*: FERR #BADPRI 

MOV #1>R5 

CALL PRTDEC 

.PRINT #TOTXT 

MOVB MXJPRI, R 5 

CALL PRTDEC 

. PRINT #CRLF 

i 

; Finished 

> 

9*: MOV (SP)+, R5 

MOV <SP)+, Rl 

RETURN 



i Must be > O 

• Br if inval id 

; Is it within valid range for job? 

j Br if not 

i Save priority value 



i Invalid priority value 
; Minimum prio value 



i "to" 

;M3X possible 



€ 
i 
I 

i 

I 

c 

i 

{ 



I 
I 



f 
( 
I 

< 
I 
I 
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I 
I 

) 

i 

I 
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i 
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3 








4 


000404 


010246 




5 


000406 


010446 




6 








7 








8 








9 


000410 


004767 


OOOOOOG 


10 


000414 


012702 


000025 ' 


11 








12 








13 








14 


000420 


004767 


OOOOOOG 


15 


000424 


111300 




16 


000426 


120027 


000042 


17 


000432 


001403 




IS 


000434 


120027 


000047 


19 


000440 


001014 




20 








21 








22 








23 


000442 


004767 


OOOOOOG 


24 


000446 


005700 




25 


000450 


001423 




26 


000452 


020027 


000014 


27 


000456 


101026 




28 


000460 


012704 


OOOOOOG 


29 


000464 


112422 




30 


000466 


077002 




31 


000470 


000413 




32 








33 








34 








35 








36 


000472 


111300 




37 


000474 


001411 




38 


000476 


120027 


000057 


39 


000502 


001406 




40 


000504 


005203 




41 


000506 


020227 


000041 ' 


42 


000512 


103010 




43 


000514 


110022 




44 


000516 


000765 




45 








46 








47 








48 


000520 


020227 


000041 ' 


49 


000524 


103011 




50 


000526 


1 1 2722 


000040 


51 


000532 


000772 




52 








53 








54 








55 


000534 






56 








57 









SET PROCESS/NAME=" string" 



CPPNAM: MOV 
MOV 



R2, ~<SP) 
R4, -<SP) 



Make sure equal sign follows keyword 



CALL CHKEQ 

MOV #CPNAME, R2 



iCheck for equal sign 

; Point to buffer for name 



See if string is enclosed in quote marks 



CALL 


SKPSPC 


MOVE 


(R3),R0 


CMPB 


RO, #42 


BEQ 


3* 


CMPB 


RO, #47 


BNE 


1* 



iSkip over any spaces 
; Get 1st char of string 
; Quote mark? 
i Br if yes 
; Apostrophe? 
; Br if not 



String is enclosed in quote marks 



3f : 



4$: 



CALL 


ACRSTR 


TST 


RO 


BEQ 


2* 


CMP 


RO, #12. 


BHI 


10* 


MOV 


#BLKO, R4 


MOVE 


<R4)+, (R2) + 


SOB 


RO, 4* 


BR 


2* 



; Accrue a quoted string 

i Is string emptyT-" 

ilf empty^ go blank fill it. 

; Is string too longT' 

; Br if too long 

; Point to accrued string 

; Move to string buffer 

i Go blank fill rest of buffer if needed 



Name string is not quoted. 

Move name to buffer till uie hit end of string 



1*: 



MOVE 


<R3),R0 


BEQ 


2* 


CMPB 


RO,#V 


BEQ 


2* 


INC 


R3 


CMP 


R2, #CPNAME+12 


BHIS 


10* 


MOVE 


RO, (R2)+ 


BR 


1* 



Get next char from string 

Br if hit end of command 

Start of next qualifier? 

Br if yes 

Point to next character in command 

Buffer overflow? 

Br if yes 

Store char into name buffer 



Fill remainder of buffer with blanks 



2*: 



CMP 


R2.. 


#CPNAME+12 


BHIS 


9« 




MOVE 


#' 


, <R2)+ 


BR 


2* 





j Filled buffer yet? 

; Br if yes 

i Pad with blanks 



i Error: string is too long 

i 

10*: FERR #EM*STL 

i 

i Finished 



; String is too long 



t 
I 
f 



i 
I 

c 
i 
( 
I 
I 

I 
c 
« 

f 

i 
c 
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50 

59 000550 012604 

60 000552 012602 

61 000554 000207 
62 

63 
64 

65 000556 051467 177236 

66 000w'6c -wOOcO/ 



9*: 



MOV 
MOV 
RETURN 



<SP)+, R4 
<SP)+, R2 



Set some flag for a SET PROCESS qualifier 

(R4),CPFLAe iSet specified flag bit 



CPPFLO: BIS 

RETURN 



f 
I 
f 
f 

< 

i 



I 
I 

c 

t 
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Process 



I 



I 
I 

I 

i 

I 

I < 
I i 



3 






4 000564 


010146 




5 000566 


010246 




6 






7 






S 






9 000570 


105767 


177231 


10 000574 


001423 




11 






12 






13 






14 000576 


116701 


177221 


15 000602 


120167 


OOOOOOG 


16 000606 


001021 




17 000610 


032767 


OOOOOOG OOOOOOG 


IS 000616 


001421 




19 000620 


070127 


000006 


20 000624 


062701 


OOOOOOG 


21 000630 


012702 


000025 ' 


22 000634 


012700 


000014 


23 000640 


112221 




24 000642 


077002 




25 






26 






27 






28 000644 


012602 




29 000646 


012601 




30 000650 


000207 




31 






32 






33 






34 000652 






35 000662 







See if NAME qualifier ujas specified. 



CPSNAM: MOV 

MOV 



R 1 , - < SP ) 
R2, -<SP) 



See if name qualifier was specified 



TSTB 
BEQ 



CPNAME 
9« 



; Was name qualifier specified? 
; Br ii^ not 



Make sure we are changing for our own process 



1*: 



9*: 



MOVE 


CPPID, Ri 


CMPB 


R1,C0RUSR 


BNE 


10* 


BIT 


#PO*NAM, PRIVCO 


BEQ 


11* 


MUL 


#6. /Rl 


ADD 


#LUNAMEi Rl 


MOV 


#CPNAME, R2 


MOV 


#12. ,R0 


MOVE 


<R2)+, <Rl)-<- 


SOB 


RO, 1* 


Finished 




MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





Get job index 

Affecting our otun process? 

Br if not 

Are we authorized to change our name? 

Br if not 

Each job has 12 character name 

Point to name cell for our job 

Point to name buffer 

Get # bytes to move 

Set name for job 



Cannot change name of another job 

10«; FABORT #EM*CND 
11*: FABORT #EM*NPR 



c 
< 
f 
I 
c 
I 
< 
i 
f 
< 



i 



I. 



I 
I 
I 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000672 

000674 
000676 



000704 
000710 
000714 
000716 
000720 
000722 
000724 
000726 



000730 
000736 



000740 
000744 
000752 
000754 
000760 
000764 



000770 
000772 
000776 
001000 
001002 



001004 
001010 

001012 
001014 



001016 
001020 
001022 
001024 



010246 
010346 
010446 



012703 
012700 
005722 
001004 
005723 
001002 
07700S 
000433 



126767 
001033 



012704 
032767 
001402 
012704 
110467 
110467 



005004 
012700 
104375 
103001 
005204 



012700 
104375 
005704 
001010 



012604 
012603 
012602 
000207 



Change privilege flags for our process. 



CPSPRV: MOV 
MOV 
MOV 



R2, ~(SP) 
R3, -<SP) 
R4, -(SP) 



See if any privilege changes were specified 



0000000 
0000000 
OOOOOOG 



1$; 



MOV #PFSO, R2 

MOV #PFCO, R3 

MOV #PVNPW, RO 

I o I \Rc:>^- 

13NE 2* 

TST <R3>+ 

BNE 2* 

SOB RO, 1* 

BR 9* 



Flags to set 

Flags to clear 

# words to check 

Arty flags to set?' 

Br if yes 

Any flags to clear? 

Br if yes 

Keep checking 

No privilege changes requested 



Make sure we are changing privileges for our job 



177067 OOOOOOG 2*; 



CMPB CPPID, CORUSR 
BNE 10* 



J Changing privilege for our job? 

; Br if not 



Set correct EMT function code depending on whether we are doing a 
normal privilege change or are changing authorized privileges. 



000001 
000004 

000002 
177123 
177127 



177046 



4*: 



MOV 

BIT 

BEO 

MOV 

MOVB 

MOVE 



#1,R4 ; Assume normal priv change 

#CPFAUT, CPFLAG ; Changing authorized privileges? 



4* 

#2, R4 

R4, PVSEMT+3 

R4, PVCEMT+3 



; Br if not 

;Code to change authorized privileges 

i Set code in EMT arg block 



000104' 



Set any specified privileges 

CLR R4 

MOV #PVSEMT, RO 

EMT 375 

BCC 3* 

INC R4 



i No privilege error detected 

i Point to EMT arg block 

j Set privilege flags 

; Br if no authorization violation 

J Remember we had authorization violation 



Clear any specified privileges 



000114' 



3*: 



9*: 



MOV 


#PVCEMT, 


EMT 


375 


TST 


R4 


BNE 


11* 


Finished 




MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





j Point to EMT arg block 

iClear privilege flags 

J Did we have an authorization violation? 

> Br if yes 



i 

< 
I 
C 



€ 
I 

i 
i 
i 
I 
I 
i 
i 

i 

< 



Can't change privilege for another job 
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SS > 

59 001026 10*: FABORT #EM*CPO ; Can't change privilege for another job 

60 : 

61 ; Not authorized to aive yourself this privilege 

62 ; 

63 001036 11*: FABORT #EM«CAP j Can't authorize that privilege 



t 
{ 
I 



TSKSTc 
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Process 





1 

2 




3 




4 

5 




6 




7 
8 




9 




10 


11 




12 




13 
14 




15 




16 


17 




IS 




19 


20 




21 




22 































001046 010246 



001050 105767 176750 

001054 001413 

001056 116702 176741 

001062 004767 OOOOOOG 

001066 103406 



i See if me need to change priority for job. 

i 

CPSPRI: MOV R2. -(SP) 

•> See if a priority change u;as requested 



TSTB 


CPPRIO 


BEQ 


9* 


MOVE 


CPPID, R2 


CALL 


CKACOJ 


BCS 


9* 



; Was a priority specified 

iBr if not 

; Get ID # of job tue want to affect 

; Can uje access that job? 

> Br if not 



Change priority value 



001070 116762 
001076 116762 



001104 012602 
00 1106 000207 



176730 OOOOOOG 
176722 OOOOOOG 



MOVB 
MOVE 

Finished 



CPPRIO, LBSPRKR2) ; Set base priority 
CPPRIO, LPRI <R2) i Set running priority 



9*: 



MOV < SP ) +, R2 
RETURN 



I 
f 

i 

i 

i 



i 
C 



t 

I 



I 
I 
( 

i 
i 



i 
I 
I 
I 

t 

I 

I 

i 

I ( 

' I 

I « 

i 
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2 




t 


3 




t 


4 001110 


010246 


C 


5 




> 


6 




i 


7 




> 


e 001112 


032767 


000003 1 76700 


9 001120 


001423 




10 






11 






12 






13 001122 


116702 


176675 


14 001126 


120267 


OOOOOOG 


15 001132 


001420 




16 






17 






IS 






19 001134 


004767 


0000000 


20 001140 


103413 




21 




/ 


22 




> 


23 




t 


24 001142 


012700 


OOOOOOG 


25 001146 


032767 


000002 176644 


26 001154 


001002 




27 001156 


012700 


0000000 


28 001162 


010260 


000004 1 


29 001166 


104375 




30 






31 






32 






33 001170 


012602 


<5 


34 001172 


000207 




35 






36 






37 






38 001174 




J 



See if u>e need to suspend or resume a job. 

CPSFLO: MOV R2, -<SP) 

See if any flags were specified 

BIT #<CPFSUS!CPFRES>. CPFLAG i Suspend or resume requested? 
BEQ 9* ; Br if not 

Make sure u»e aren't suspending or resuming our own job 



MOVE 


CPPID, R2 


CMPB 


R2, CDRUSR 


BEQ 


10* 



; Get IB # of job we want to affect 
} Is it our job? 
i Br if yes 



Make sure we can access the specified job 



CALL 
BCS 



CKACOJ 
9* 



j Can we access that job? 
i Br if not 



Suspend or resume the specified job 



1*: 



MOV 
BIT 
BNE 
MOV 
MOV 
EMT 

Finished 



9*: 



MOV 

RETURN 



#RJEMT> RO 

#CPFRES> CPFLAO 

1* 

#SJEMT, RO 

R2, 4<R0) 

375 



(SP)+, R2 



i Point to resume- job arg block 

; Does he want to resume the job? 

J Br if yes 

f Point to suspend-job arg block 

; Set job # in EMT arg block 

i Suspend or resume the job 



Error — Trying to suspend or resume our own job 
10*: FABORT #EM*1DR i /ID parameter required 



i 
I 
f 



I 

« 

i 
I 
I 
1 
i 

I 

i 
( 
I 



I 



i 
f 



I 



4 



t < 



3 

4 

5 001204 

6 

7 

8 

9 001204 
10 001210 
U 001214 

12 001216 

13 001220 

14 001222 

15 001224 

16 001230 

17 001232 
IS 001236 

19 001240 

20 001244 

21 001246 

22 001250 



176612 



001254 



24 

25 

26 

27 

28 001256 

29 

30 

31 

32 001262 

33 001264 

34 001266 

35 001272 

36 001274 
37 

38 
39 

40 001304 

41 001310 
42 

43 
44 
45 
46 

47 001314 

48 001322 

49 001324 
50 

51 
52 
53 
54 

55 001332 

56 001336 
57 



105067 
004767 
010305 
005002 
112500 
001413 
120027 
001410 
120027 
103435 
120027 
101032 
005202 
000763 
005702 
001426 



004767 0000000 



000040 

000060 
000071 



006301 
001403 
020127 
101404 



0000000 



004767 
110167 



0000000 
176506 
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i . SETTL . Terminal 

Process the SET TERMINAL command. 

SETTTY: 

See if a line number was specified 



1$: 



?$: 



CLRB 


SETPRM 


CALL 


SKPSPC 


MOV 


R3, R5 


CLR 


R2 


MOVE 


(R5)+,R0 


BEQ 


2* 


CMPB 


RO, #40 


BEQ 


2* 


CMPB 


RO, tt-'O 


BLO 


3« 


CMPB 


RO, #'9 


BHI 


3* 


INC 


R2 


BR 


1« 


TST 


R2 


BEQ 


3* 



Assume no line number specified 

Skip over any spaces 

Save pointer to first operand 

Say no digits seen ijet 

Get next char 

Br if hit end of command line 

Is this a space? 

Br if yes 

Is this a digits-" 

Br if not 

i Br if not digit 

i Remember ute saw a digit 

iScan first item and see if it is a number 

; Was first item a number? 

i Br if not 



There is a terminal number specified, accrue it 

CALL ACRDEC ; Accrue the terminal number 

See if this is a valid terminal number 



ASL 


Rl 


BEQ 


4* 


CMP 


R 1 , #LSTPl 


BLOS 


5* 



i Convert line number to line index number 

} Zero is not valid line number 

; Is this a primary line number? 

i Br if yes 

i Invalid line number 



4*: FAB OR T #EM*ILN 

Require TERMINAL privilege to make any permanent change 



5*: 



CALL 
MOVB 



CKTERM 
Rl, SETPRM 



j Require TERMINAL privilege to do this 
J Remember to make set permanent 



032761 
001003 
016161 



0000000 OOOOOOG 
0000000 OOOOOOG 



If we are changing line parameters for a line that is not 
currently logged on, initialize the LSW2 table from the initial 
flags for the line (ILSW2). 

BIT #*DILUP,LSW<R1) ils line logged on? 

BNE 3* i Br if yes 

MOV ILSW2<R1}, LSW2(R1)J Initialize LSW2 table 

We have the terminal line index number for which the command is being 

issued in Rl. 

Process all qualifier specified with command. 



012704 
004767 



000000 ' 
OOOOOOG 



3*: 



MOV 
CALL 



#TTHD, R4 
SCNOPS 



i Get pointer to option table 

i Process all of the command options 



f 

i 
( 
C 
I 
4 
I 
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58 ' End of comfnand reached 

59 i 

60 001342 000167 OOOOOOG JMP RDCMD ; Finished SET TT command 



I 
I 
i 
I 

4 
i 

i 
( 
I 
I 

t 
I 

i 

i 



I 
I 

c 
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3 

4 001346 004767 OOOOOOS 

5 

6 

7 

8 001352 032761 

9 001360 001404 



1 n no 
11 



14 00 

15 00 

16 00 
17 

18 

19 

20 00 

21 

22 

23 

24 

2S> 

26 00 

27 00 

28 00 

29 00 



1352 
1360 
1362 



OOOOOOG OOOOOOC 



00 
00 



1372 
1400 
1402 



1412 
1416 

1420 



032761 
00 1 404 



OOOOOOG OOOOOOG 1*: 



SET TERMINAL n START 

STTTST: CALL CKPRIV j Require OPER privilege 
See if line is already started 

BIT #*DILUP,LSW<R1) J Is line already started' 

BEQ 1* i Br if not 

FABDRT #EM$LAS ; Line is already started 

See if line is marked dead 

BIT #*DEAD, LSW3<R1) >Is line marked as dead? 

BEQ 2« ; Br if not 

FABORT #EM*LFD ; Line is dead 

See if a CL unit is attached to the line 



005761 

002404 



OOOOOOG 



?*: TST LCLUNT(Rl) 
BLT 3* 
FABORT #EM«CLU 



Start the line 



1430 
1434 
1440 
1442 



010167 
012700 
104375 
000207 



1 76474 
000124' 



3*: 



9*: 



MOV R 1 , STAEMT+4 

MOV #STAEMT.- RO 

EMT 375 
RETURN 



j Is line being used by a CL unit? 

J Br if not 

j Line in use by a CL unit 



; Store line index into EMT arg block 
•Point to EMT arg block 
; Start the 1 ine 



I 

c 

i 



C 
I 
t 

i 

« 

< 
f 
( 
I 

< 






I' 
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SET TERMINAL Cn] SPEED-n 



4 


001444 


004767 


ooooooe 


STTTSP: 


CALL 


CKTERM 


5 


001450 


004767 


ooooooe 






CALL 


ACRSPD 


6 


001454 


042761 


ooooooe ooooooG 






BIC 


#*AUT0>LSW2<R1) 


7 


001462 


116100 


00000 10 






MOVE 


LMXPRM+1<R1)»R0 


8 


001466 


042700 


OOOOOOG 






BIC 


#<LP*SPD>, RO 


9 


001472 


050005 








BIS 


RO, R5 


10 


001474 


010567 


176372 


STSPl: 


MOV 


R5, LSPEMT+4 


11 


001500 


010167 


176364 






MOV 


Rl,LSPEMT+2 


12 


001504 


006267 


176360 






ASR 


LSPEMT+2 


13 


001510 


012700 


000066 ' 






MOV 


#LSPEMT, RO 


14 


001514 


104375 








EMT 


375 


15 


001516 


103402 








BCS 


2* 


16 
17 
18 


001520 


000167 


000474 






JMP 


BSOl 










Error on EMT 


to set speed 


19 








t 








20 


001524 






2«: 




FAB OR T 


#EM*ILN 



Require TERMINAL privilege 

Accrue speed value 

Say no autobaud on this line 

Get control flags for line 

Clear speed flags 

Combine parity and length flags with speed 

Store speed? par* len code into EMT arg block 

Store line # into EMT arg block 

Convert index # to line # 

Point to EMT avQ block 

Set the speed 

Br if error 



> Say invalid line number 



I i 



I 
I 

f 

I 
i 
i 
i 
i 
c 
f 
f 
i 

< 
I 

€ 

{ 

( 



t 
i 
i 



\ 



i 
ff 



c 
t 
c 

I 



f 

I 

I 

I 

i 
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Command 




Termina 


1 




1 
2 








3 








4 


001534 


004767 


OOOOOOG 


5 


001540 


010167 


176332 


6 


001544 


006267 


176326 


7 


001550 


012700 


000074 ' 


8 


001554 


104375 




9 


001556 


103402 




10 


001560 


000167 


000434 


11 


001564 
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; SET T 

> 

SETXON: CALL 
MOV 
ASR 
MOV 
EMT 
DCS 
JMP 



CKTERM 

Rl. XONEMT+2 

XONEMT+2 

#XONEMT, RO 

375 

2* 

BSOl 



FABORT #EM*ILN 



i Require TERMINAL privilege 

;Set line # in EMT argument block 

J Convert index # to line # 

; Point to EMT argument block 

;Do the XON EMT 

> Br if invalid line # 

; Say invalid line number 



i 

c 

4 

i 
I 



i 
i 
t 
I 

4 
f 

i 
i 

c 



* 
i 



TSKST2 - 


— Keyboard SET 


Command 


MACRO V05. 05 " 


rhursday 


19-Jan-S9 14 




Termina 


1 












1 
2 
3 
4 










• 

J SET 


TT Lnl 


ENOJDTR 


001574 


112767 


000002 


176276 


* 
SETDTR: 


MDVB 


#2, DTREMT 


5 


001602 


000403 








BR 


DTRCOM 


6 


001604 


112767 


000003 


176266 


CLRDTR: 


MOVE 


#3, DTREMT 


7 


001612 


004767 


0000000 




DTRCOM: 


CALL 


CKTERM 


8 


001616 


006201 








ASR 


Rl 


9 


001620 


010167 


176256 






MOV 


Rl, DTREMT +2 


10 


001624 


006301 








ASL 


Rl 


11 


001626 


012700 


000100' 






MOV 


#DTREMT, RO 


12 


001632 


104375 








EMT 


375 


13 


001634 


103402 








BCS 


2* 


14 


001636 


000167 


000356 






JMP 


BSOl 


15 


001642 








2*: 


FABORT 


EM*ILN 



Page IS 



Set function to raise DTR 

Br to common routine 

Set function to lower DTR 

Require TERMINAL privilege 

Convert line index to line number 

Set in EMT arg block 

Get back as line index 

Point to EMT arg block to 

Raise or lower DTR 

Br on EMT error 

5 Say invalid line number 



< 
t 

f 
i 

i 
t 
( 
I 
I 
« 

I 

c 



f 

f 

I 

c 

t 



( 
( 
i 



i 
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Terminal 



2 
3 
4 001652 






t 


SET 


TERMINAL 


AUTOBAUD 


004767 


0000000 


SAUTO: 


CALL 


CKTERM 


5 001656 


052761 


OOOOOOG 


OOOOOOG 




BIS 


#*AUTO, LSW2<R1) 


6 001664 


032761 


0000000 


OOOOOOG 




BIT 


#*DILUP,LSW(R1) 


7 001672 


001003 








BNE 


9* 


8 001674 


012705 


OOOOOOG 






MOV 


#39600, R5 


9 001700 


000675 








BR 


STSPl 


10 001702 


000167 


000312 


9*: 




JMP 


BSDl 



j Require TERMINAL privilege 
* 5 001656 052761 OOOOOOG OOOOOOG BIS #*AUTO, LSW2<R1 ) i Set flag saying to do autobaude select ' 

) Is anyone using the line now? 
J Br if yes 
;Set line speed to 9600 baud 



4 



i 
( 

I 
I 

i 
f 
C 
f 
f 

i 
t 

4 
I 

i 
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ODD NONE> 



2 
3 
4 








r 


SET 


TERMINAL 


PARITY=<EVL"N 


001706 


010446 




i 

SETPAR: 


MOV 


R4, -(SP) 


5 


001710 


004767 


ooooooe 






CALL 


CKTERM 


6 


001714 


004767 


OOOOOOG 






CALL 


SKPSPC 


7 


001720 


121327 


000075 






CMPB 


<R3),#' = 


8 


001724 


001001 








BNE 


1* 


9 


001726 


005203 








INC 


R3 


10 


001730 


012704 


001134' 


1$: 




MOM 


#PARHD, R4 


11 


001734 


004767 


OOOOOOG 






CALL 


SETWRD 


12 


001740 


012604 








MOV 


<SP)+. R4 


13 


001742 


000207 








RETURN 





Save current option table pointer 

Require TERMINAL privilege 

Skip past any spaces 

Equal sign following PARITY? 

Br if not 

Skip past equal sign 

Point to new option table 

Process EVEN. ODD. NONE word 



c 

€ 
I 



C 
i 

i 
I 

4 

i 

i 

( 
( 
I 
< 
i 
i 
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SET TERMINAL BITS^jj 



3 

4 001744 


004767 


0000000 


STOLEN: 


CALL 


CKTERM 


5 001750 


116105 


00000 IG 




MOVB 


LMXPRM+KRl), R5 


6 001754 


010102 






MOV 


Rl, R2 


7 001756 


004767 


OOOOOOG 




CALL 


ACRDEC 


8 001762 


042705 


OOOOOOG 




BIC 


#LP*7BT, R5 


9 001766 


020127 


000007 




Ct^P 


Rl,#7. 


10 001772 


001003 






BNE 


1« 


11 001774 


052705 


OOOOOOG 




BIS 


#LP*7BT> R5 


12 002000 


000407 






BR 


2* 


13 002002 


120127 


000010 


1$: 


CMPB 


R1,#S. 


14 002006 


001404 






BEQ 


2* 


15 002010 








FAB OR T 


#EM»ICL 


16 002020 


010201 




2*: 


MOV 


R2, Rl 


17 002022 


000167 


177446 




jtnp 


STSPl 



i Require TERMINAL privilege 
; Get current line parameters 
i Save line index number 
; Accrue parameter value 
> Assume 8 bits luanted 

n vaiUtf /r 

; Br if not 

; Select 7 bits 

j Is value 87' 

j Br if yes 

; Invalid character length 

> Get back line index number 

i Go set neiu length 



f 
i 
f 

€ 

I 

i 

€ 

i 
i 
i 

i 
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I* 

i 
I t 

: t 



1 

2 








3 








4 








5 








6 








7 








S 


002026 


004767 


OOOOOOG 


9 


002032 


116105 


0000010 


10 


002036 


042705 


OOOOOOC 


ii 


002042 


151405 




12 


002044 


000167 


177424 


13 








14 








15 








16 


002050 


004767 


OOOOOOG 


17 


002054 


116105 


0000010 


IS 


002060 


042705 


OOOOOOC 


19 


002064 


000167 


177404 


20 








21 








22 








23 








24 


002070 


010146 




25 


002072 


016101 


OOOOOOG 


26 


002076 


004767 


002344 


27 


002102 


012601 




28 


002104 


000207 





SET TERMINAL PARITY==-CEVEN ODD NONE> 

Inputs: 
Rl = line index number. 
R4 = Pointer to work with parity flag bits. 

STPAR: CALL CKTERM ; Require TERMINAL privilege 

MOVE LMXPRM+KRi), R5 i Get current flags for line 

BIC #LP*PAR)LP*ODD, R5; Clear parity control flags 

BISB @R4, R5 iSet new flags 

JMP STSPl ; Go set value 

i 

.: SET TERMINAL NOPARITV 



STNOPR: 



CALL CKTERM ; Require TERMINAL privilege 

MOVB LMXPRM+KRi), R5 i Get current flags for line 

BIC #LP*PAR!LP*ODD, R5; Clear parity control flags 

JMP STSPl /Go set value 



SET TERMINAL Cn] TRANSLAi t=( ex t=int, ex t=int. 



) 



STTRNS: 



MOV 

MOV 

CALL 

MOV 

RETURN 



R 1 , - < SP ) 
LNPRIM<R1) 
PRSTRN 
<SP)+, Rl 



J Save original line number 
Rl ;Make sure we have primary line number 
i Parse the translate qualifier 
J Restore original line number 



c 
I 

i 
i 
( 
I 

i 
I 
i 
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i 

I 
c 

I 

1' 

!• 

I 

i 
i 



3 
4 
5 

6 002106 

7 002114 

8 002122 

10 
11 



14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2t? 

26 

27 

20 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



002140 
002146 
002154 



002162 
002166 
002170 
002174 
002176 
002202 
002204 
002210 
002212 
002220 
002226 
002232 
002234 
002242 



002244 
002252 
002260 



002274 



002304 
002312 
002320 



122 
002330 
002336 
002344 



042761 
052761 
012761 
000414 



052761 
012761 
042761 



120167 
001006 
005761 
00 1 403 
012700 
1043/b 
105767 
001403 
016161 
016161 
105767 
001403 
016161 
000207 



042761 
052761 
012761 
042761 
000732 



042761 
052761 
012761 
000720 



042761 
052761 
012761 
000706 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

000132' 

175612 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
175570 

OOOOOOG OOOOOOG 



Set parameters for particular terminal types. 

SET PARAMETERS FOR A VT50/VT52. 
SET VT50 
SVT50: BIC #VT52N0> LSW2<R1 ); CLEAR SOME FLAGS 

BIS #VT52FL. LSW2<R1);SAY TERMINAL IS A VT50 

MOV #VT52, LTRMTP<R1)jSET TERMINAL TYPE 

BR BS02 

SET PARAMETERS FOR LA36. 

STLA36: BIC #LA36N0, L3W2<Ri ) i RESET VARIOUS FLAGS 

BIS #LA36FL, LSW? < R 1 ) 

MOV #LA36. LTRMTP(Rl)iSET TERMINAL TYPE 

BIC #*SLON, LSW7(R1 ) ;Disalble SL editor for this terminal type 



Set up terminal type information 



BS02: CMPB 
BNE 
TST 
BEQ 
MOV 
EMT 

1*: TSTB 
BEQ 
MOV 

BSOl: MOV 
TSTB 
BEQ 
MOV 

SETJMP: RETURN 



Rl, CORUSR 

1* 

LWIND0<R1> 

1* 

#WINSTT,R0 

375 

SETPRM 

BSOl 



Changing terminal type for our job? 

Br if not our job 

Is process windotuing turned on for job? 

Br if not 

Point to EMT argument block 

Tell windoujing system about terminal type 

Should we make the set permanent? 

Br if not 

LTRMTP<R1)> ITRMTP<R1) ; Set initial terminal type 
LSW2<R1), LSW2S<R1) ; Save in case of ctrl-c reentry 
SETPRM ; Should we make the set permanent? 

SETJMP i Br if not 

LSW2(R1), ILSW2<Rl)i Set initial flags for line 

/Return to process next qualifier 



LA120 parameters 

SLA 120: BIC #LA12N0, LSW2(R1 ) ; SET FLAGS 

BIS #LA12FL, LSW2(R1 > 

MOV #LA120, LTRMTP(Rl)iSET TERMINAL TYPE 

BIC #*SLON, LSW7(R1 ) ;Disalble SL editor for this terminal type 

BR BS02 

J VTIOO parameters 

#VTi0N0>LSW2<Ri)iSET FLAGS 

#VT10FL,LSW2<R1) 

#VT100, LTRMTP<R1);SET TERMINAL TYPE 

BS02 



#VT20N0, LSW2(R1) 
#VT20FL, LSW2<Ri ) 
#VT200, LTRMTP(Rl) 
BS02 



SVTIOO: 


BIC 




BIS 




MOV 


STERM: 


BR 


; VT200 pa 


SVT200: 


BIC 




BIS 




MOV 




BR 



f 
« 

i 
i 

( 
« 

I 
I 

C 



VT200 parameters 7 bit controls 
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3a 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 
97 

98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



002346 
002354 
002362 
002370 



002372 
002400 
002406 
002414 



002416 

002424 
002432 
002440 
002446 



002450 
002456 
002464 
002472 
002500 



002502 
002502 
002510 
002516 
002524 
002532 



002534 
002540 
002544 

002550 
002556 
002564 
002570 
002572 
002612 
002614 
002620 
002644 



042761 
052761 
012761 
000674 



042761 
052761 
012761 
000662 



042761 

052761 
012761 
042761 
000645 



042761 
052761 
012761 
042761 
000630 



042761 
052761 

012761 
042761 
000613 



116701 
004767 
000167 

052761 
052761 
120167 
001025 

010002 
052702 



OOOOOOG OOOOOOG SVT227: 

ooooooe OOOOOOG 

OOOOOOG OOOOOOG 



BIC #VT20N0, LSW2(R1) 

BIS # VT20FL, LSW2 ( R 1 ) 

MOV #VT2007, LTRMTP < R 1 ) 

BR BS02 



VT200 parameters 8 bit controls 



OOOOOOG OOOOOOG SVT22S: BIC 
OOOOOOG OOOOOOG BIS 

OOOOOOG OOOOOOG MOV 

BR 



#VT20N0. LSW2<R1) 
#VT20FL. LSW2<R1) 
#VT2008, LTRMTP (Rl) 
BS02 



Hazeltine parameters 



OOOOOOG OOOOOOG STHAZL: BIC 
OOOOOOG OOOOOOG BIS 

OOOOOOG OOOOOOG MOV 

OOOOOOG OOOOOOG BIC 

BR 



#HAZLNO, LSW2<Rl>i RESET SOME FLAGS 
#HAZLFLi LSW2<Rl)i SET SOME FLAGS 
#HAZEL, LTRMTP <Rl)i SET TERMINAL TYPE 
#«SLON> LSW7<R1) ;Disalble SL editor 
BS02 



for this terminal type 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



ADM3A parameters 

SADM3A: BIC #ADM3N0. LSW2(R1 ) i SET FLAGS 

BIS #ADM3FL. LSW2 < R 1 ) 

MOV #ADM3A, LTRMTP (Rl)i SET TERMINAL TYPE 

BIC #*SLON.- LSW7<R1 ) iDisalble SL editor for this terminal type 

BR BS02 

SET PARAMETERS FOR DIABLO- 1620 TERMINAL 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



SQUME: 
SDIAB: 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



BIC #D I ABNO, LSW2 ( R 1 ) i RESET VAR I OUS FLAGS 

BIS #DIABFL, LSW2<R1);SAY THIS IS A DIABLO 

MOV #DIABLO, LTRMTP (Rl>i SET TERMINAL TYPE 

BIC #*SLON, LSW7<R1) iDisalble SL editor for 

BR BS02 



SE-f TT QUIET 

(Also, SET NOVERIFY) 



this terminal type 



OOOOOOG 

000004 

OOOOOOG 



STNOVR : MOVE 
CALL 
JMP 



OOOOOOG OOOOOOG SETQUT; 
OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 



000167 177350 



1*: 



BIS 

BIS 

CMPB 

BNE 

. GVAL 

MOV 

BIS 

. PVAL 

JMP 



CORUSR.Rl 

SETQUT 

RDCMD 

#*QTSET, LSW2(R1) 

#*QUIET, LSW4<R1) 

Rl, CORUSR 

1* 

#XAREA, #<CFSTS-MONVEC> 

RO, R2 

#CF*QUT, R2 



; Get current job index number 
i Do the set 
i Finished 

i REMEMBER SET WAS DONE 

i HAVE IMMEDIATE EFFECT 

J Are tue doing set for current job? 

; Br if not 

i GET CURRENT COMMAND FILE FLAGS 

i SET TT-QUIET FLAG 



#XAREA, #<CFSTS-MONVEC>.- R2; STORE UPDATED FLAGS 
BSOl 



SET TT NOQUIET 
(Also, SET VERIFY) 



I 
ff 



I 

c 
{ 
c 
f 
t 
t 
( 
I 
I 

I 
I 



t 
( 
c 
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I ( 

I* 

I 

i 

I 
c 

r 

€ 
I 

i 
I 



I 



4 



115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 

1 ^7 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 



002650 
002654 
002660 

002664 
002672 
002700 
002704 
002706 
002726 
002730 
002734 
002760 



002764 
002772 
003000 



003004 
OOaulc;: 
003020 



003022 
003030 
003036 



003040 
003044 
003052 
003054 



003064 
003070 
003072 
003074 
003076 



003102 
003106 
003110 
003112 
003114 



116701 
004767 
000167 

042761 
042761 
120167 



010002 
042702 

000167 



042761 
042761 
000167 



042761 
04(s.>76i 
000207 



052761 
052761 
000207 



004767 
032761 
001406 



004767 
012405 
060105 
051415 
000167 



004767 
012405 
060105 
041415 
000167 



OOOOOOG 

000004 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
177234 



OOOOOOG 
OOOOOOG 
177214 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



177116 



OOOOOOG 



177100 



OOOOOOG 
OOOOOOG 



STVRFY: MOVE 
CALL 
JMP 

t 

RSTQUT: BIC 
BIC 
CMPB 
BNE 
. GVAL 
MOV 
BIC 
. PVAL 
JMP 



1$: 



CORUSR, Rl 

RSTQUT 

RDCMD 

#*QTSET, LSW2(R1) 

#*QUIET, LSW4<R1) 

Rl, CORUSR 

1* 

#XAREA, #<CFSTS~MONVEC> 

RO, R2 

#CF*QUT, R2 

#XAREA, #<CFST3-MONVEC>, R2i STORE UPDATED FLAGS 

B501 



j Get current job index number 
J Do the SET 
; Fini shed 

i REMEMBER SET WAS DONE 

> START LISTING NOW 

i Are ue doing set for current line? 

i Br i f not 

i GET CURRENT COMMAND FILE FLAGS 

i CLEAR TT-QUIET FLAG 



SET TT NOSCOPE 



OOOOOOG 
OOOOOOG 



SETNSC; BIC 
BIC 
JMP 

SET TT WAIT 



#*SCOPE, LSW2(R1) 

#*SL0N>LBW7<R1) 

BSOl 



i Say this is not a scope type terminal 
J Disable SL editor 



OOOOOOG 
OOOOOOG 



SETTW; 



BIC 
BIC 
RETURN 



#*SNWTT, LSW6<Ri)iUND0 SET TT NOWAIT 
#*NOWTT, LSW5(R1) 



OOOOOOG 
OOOOOOG 



OOOOOOG 



SET TT NOWAIT 

SETTNW: BIS 
BIS 
RETURN 

SET TT DEAD 

SETDED: CALL 
BIT 
BEQ 



#«SNWTT, LSW6<R1); SET TT NOWAIT 
#*NOWTT, LSW5<R1> 



CKTERM ; Require TERMINAL privilege 

#*DILUP,LSW<R1) ils line active now 
SETTTB ;Br if not 



FABORT #RUNMS j Can't kill an active line 

Perform terminal sets that only involve setting or clearing flag bits. 



SETTTP: CALL 

SETTTB: MOV 

ADD 

BIS 

JMP 



CKTERM 
<R4)+, R5 
R1>R5 
eR4, eR5 
BSOl 



Require TERMINAL priviieqe 

POINT TO TABLE 

POINT TO TABLE ENTRY FOR THIS USER 

SET THE DESIRED FLAG 



RESET A BIT IN A USER TABLE 



CLRTTP: CALL 

CLRTTB: MOV 

ADD 

BIC 

JMP 



CKTERM 
<R4)+, R5 
R 1 .■ R 5 
eR4, aR5 
BSOl 



; Require TERMINAL privilege 

i POINT TO TABLE 

; POINT TO TABLE ENTRY FOR THIS USER 

i RESET THE DESIRED FLAG 



i 
I 



I 

f 

I 

I 



I 
I 
I 
i 
i 
I 

i 

i 
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1 

2 








3 








4 








5 








6 








7 








8 


003120 


004767 


OOOOOOG 


9 


003124 


020227 


0000000 


10 


003130 


103404 




11 


003132 






12 


003142 


006302 




13 








14 








15 








16 








17 


003144 


004767 


OOOOOOG 


IS 


003150 


111300 




19 


003152 


001443 




20 


003154 


120027 


000054 


21 


003160 


001403 




22 


003162 


120027 


000057 


23 


003166 


001005 




24 


003170 


005203 




25 


003172 


004767 


0000009 


26 


003176 


105713 




27 


003200 


001424 




28 








29 








30 








31 


003202 


012704 


001170' 


32 


003206 


004767 


OOOOOOG 


33 


003212 


103413 




34 


003214 


020427 


001624' 


35 


003220 


101004 




36 


003222 


016700 


OOOOOOG 


37 


003226 


004767 


OOOOOOG 


38 


003232 


010246 




39 


003234 


004734 




40 


003236 


012602 




41 


003240 


000741 




42 








43 








44 








45 


003242 






46 








47 








48 








49 


003252 






50 








51 








52 








53 


003262 


000167 


OOOOOOG 


54 








55 








56 








57 


003266 
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l-^Ti'T"'n »^« 

. SSB ! ! L. UL. 

Process the SET CLn command 

Inputs: 
R2 = CL unit number 



SETCL: CALL CKTERM 

CMP R2, #CLTOTL 

BLO 3* 

FABORT #EM*IUN 

3*: ASL R2 



i Require TERMINAL privilege for SET CL 

i 1 B this a valid unit? 

; Br if ok 

i Inval id CL unit 

> Convert unit # to word table index 



At this point* R2 contains the index into the CL unit tables. 
Begin loop to process ^ach specified command qualifier. 

1*: CALL SKPSPC iSkip over any spaces 

Get next character from command 

Br if hit the end of the command 

Comma separator"' 

Br if yes 

S.lash separator? 

Br if not 

4$; INC R3 iSkip past separator 

Skip over any spaces 

Are me at the end of the command now? 
Br if yes — Error 



CALL 


SKPSPC 


MOVB 


(R3),R0 


BEQ 


15* 


CMPB 


R0,#', 


BEO 


4* 


CMPB 


RO. # ' / 


BNE 


5* 


INC 


R3 


CALL 


SKPSPC 


TSTB 


(R3) 


BEQ 


10* 



Process the next command qualifier 



5$: 



51*: 



MOV 


tCLOPHD, R4 


CALL 


SEARCH 


BCS 


11* 


CMP 


R4, #CLNCKA 


BHI 


51* 


MOV 


R50BUF.ro 


CALL 


CHKALC 


MOV 


R2, -(SP) 


CALL 


e(R4)+ 


MOV 


<SP)4-, R2 


BR 


1* 



Point to option table 

Search for option keyword 

Br if cannot idenify keyword 

Does this set command need to check alloc? 

BR if not 

Get back RAD50 device name 

Forbid SET if device is allocated 

Save unit index 

Call routine to process qualifier 

Get back unit number index 

Go see if there are more qualifiers 



/Invalid option keyword 



i Command syntax error 



Invalid qualifier keyword 
11*: FABORT #CSIMS1 

i 

.: Invalid command syntax 
10*: FABORT #EM*CSE 

i 

5 End of command reached 

15*: JMP RDCMD ; Finished command 

CL unit is not assigned to a line 
STCLNL: FABORT #EM*CLN i CL unit is not assigned to a line 



I 
f 

€ 
I 



i 
c 





TSKST2 ■ 


— Keyboard SET 


Command MACRO 


V05. 05 • 


fhursday 


19-Jan-S9 14: 58 




CL 














58 
















59 








i Turn on some 


option 




60 
















61 


003276 


005762 


OOOOOOG 


STCLOP 


TST 


CL*LIX<R2) 


f 


62 


003302 


001771 






BEQ 


STCLNL 




63 


003304 


051462 


0000000 




BIS 


(R4),CL*0PT<R2) 




64 
65 


003310 


000207 






RETURN 






66 








i Turn off some option 




67 
















6S 


003312 


005762 


OOOOOOG 


CLCLOP 


TST 


CL*LIX<R2) 




69 


003316 


001763 






BEQ 


STCLNL 




70 


003320 


041462 


OOOOOOG 




BIC 


<R4), CL*OPT<R2) 




71 
72 
73 


003324 


000207 






RETURN 












; Set 


a parameter value 




74 
















75 


003326 


005762 


OOOOOOG 


STCLVL: 


TST 


CL*LIX(R2) 




76 


003332 


001755 






BEQ 


STCLNL 




77 


003334 


004767 


OOOOOOG 




CALL 


ACRDEC 




78 


003340 


011404 






MOV 


<R4),R4 




79 


003342 


060204 






ADD 


R2, R4 




80 


003344 


010114 






MOV 


Rl, (R4) 




81 
B2 
S3 


003346 


000207 






RETURN 












i SET 


CL CN03GRAPH 




84 
















85 


003350 


005762 


OOOOOOG 


STCLGR: 


TST 


CL«LIX<R2) 




86 


003354 


001744 






BEQ 


STCLNL 




87 


003356 


011462 


OOOOOOG 




MOV 


(R4),CL*WID(R2> 




88 


003362 


000207 






RETURN 






89 
















90 








i SET 


CL TOP 






91 
















92 


003364 


005762 


OOOOOOG 


CLTOP: 


TST 


CL*LIX(R2> 




93 


003370 


001736 






BEQ 


STCLNL 




94 


003372 


005062 


OOOOOOG 




CLR 


CL*LIN<R2) 




95 


003376 


000207 






RETURN 






96 
















97 








; SET 


CL SPEED= 


-value 


98 
















99 


003400 


016202 


OOOOOOG 


STCLSP; 


MOV 


CL*LIX<R2>,R2 




100 


003404 


001730 






BEQ 


STCLNL 


101 


003406 


004767 


OOOOOOG 




CALL 


ACRSPD 




102 


003412 


116200 


00000 IG 




MOVE 


LMXPRM+1<R2),R0 




103 


003416 


042700 


OOOOOOG 




BIC 


#LP*SPD, RO 


104 


003422 


050005 






BIS 


RO, R5 




105 


003424 


010567 


174442 


STCLSl: 


MOV 


R5, LSPEMT+4 




106 


003430 


006202 






ASR 


R2 




107 


003432 


010267 


174432 




MOV 


R2, LSPEMT+2 




108 


003436 


012700 


000066 ' 




MOV 


#LSPEMT, RO 




109 


003442 


104375 






EMT 


375 




110 


003444 


103401 






BCS 


2* 




111 
112 
113 


003446 


000207 






RETURN 












> Error on EliT 


to set speed 




114 















Page 24-1 



Is this CL unit assigned to a line? 

Br if not 

Set desired option flag 



i Is this CL unit assigned to a line? 
j Br if not 
fReset the option 



; Is this CL unit assigned to a line? 

; Br if not 

/Accrue decimal value 

; Get address of table to store value into 

i Point to correct table entry 

i Store value into table 



; Is this CL unit assigned to a line? 

i Br if not 

i Set width to O (graph) or 132 (nograph) 



i Is this CL unit assigned to a line? 

i Br if not 

; Say lue are at top of the page 



Is this CL unit assigned to a line? 

Br if not 

Accrue speed value 

Get current flags for line 

Clear speed code 

Put in parity and length flags 

Store speed code into EMT arg block 

Convert line index # to line # 

Store line # into EMT arg block 

Point to EMT arg block 

Set the speed 

Br if error 



TSKST 



T2 - 


— Keyboard SET 


Command 




CL 






t15 


003450 






ii6 








117 








118 








119 


003460 


012705 


0000000 


120 


003464 


000402 




121 








122 








123 








124 


003466 


012705 


0000000 


125 








126 








127 








128 








129 


003472 


005762 


0000000 


130 


003476 


001673 




131 


003500 


004767 


001140 


132 


003504 






133 


003550 


103404 




134 


003552 






135 


003560 


000207 




136 


003562 






137 


003570 






138 








139 








140 








141 


003600 


004767 


OOOOOOG 


142 


003604 


122327 


000075 


143 


003610 


001401 




144 


003612 


005303 




145 


003614 


012704 


001642' 


146 


003620 


004767 


OOOOOOG 


147 


003624 


000207 
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?^: FAB OR T #EM*IUN 
SET CLn XON 



STCLXN: MOV 
BR 



#CLSFCH, R5 
CLSPFN 



; SET CLn RESET 

i 

STCLRS: MOV #CLSFRS. R5 

i 

i Do a . SPFUN to a CL unit. 
i R5 = . SPFUN code. 



i Say invalid unit number 



J Get . SPFUN code 
;Do the . SPFUN 



Get . SPFUN code 



CLSPFN: TST 
BEQ 
CALL 



CL*LIX(R2) 
STCLNL 

CLLOOK 



?*: 



i Is this CL unit assigned to a line? 

; Br if not 

J Open channel 1 to CL unit 
.SPFUN #XAREA. #1, R5> #0, #0, #0 ; Do the function 
BCS 2« iBr if error on .SPFUN 

.CLOSE #1 J Close CL channel 

RETURN 

PURGE #1 jMake sure channel is closed 

FABORT #EM*IUN i Say invalid unit number 



SE! CL PARITY driver routine 



STCLPO: 


CALL 


SKPSPC 




CMPB 


<R3)+, #' = 




BEQ 


1* 




DEC 


R3 


1*: 


MOV 


#CLPRHD, R4 




CALL 


SETWRD 




RETURN 





.iSkip any spaces 

i Should have an equal sign 

; Point to start of keyword 
i Point to driver table 
i Process the option 



< 
f 

I 
I 

( 
I 
I 

i 
i 
I 

I 

< 

i 
i 
I 
c 
i 



c 
c 



I I 

I < 

i 

i 

( 
I 

I 

I 

> f 

i 

f 
( 

I 



) 
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CL 



3 








4 








5 








6 








7 








8 








9 








10 








11 


003626 


004767 


000040 


12 


003632 


006202 




13 


003634 


012700 


000050 ' 


14 


003640 


010260 


000002 


15 


003644 


104375 




16 


003646 


000207 




17 








IS 








19 








20 








21 








22 


003650 


004767 


000016 


23 


003654 


006202 




24 


003656 


012700 


000054 ' 


25 


003662 


010260 


000002 


26 


003666 


104375 




27 


003670 


000207 




28 








29 








30 








31 








32 








33 


003672 


032767 


OOOOOOG 


34 


003700 


001004 




35 


003702 






36 


003712 


005762 


OOOOOOG 


37 


003716 


001002 




3S 


003720 


000167 


177342 


39 


003724 


000207 





BYPASS forms of SET CLn XON and RESET commands. 

These forms differ from the ordinary forms in that they use 

EMT processing instead of SPFUN calls to the CL handler, and thus 

do not have the overhead or access checking of getting a channel. 

SET CLn XONBYPASS Same as SET CLn XON> except uses EMT instead of SPFUN 

R2 contains CL unit index 



STCLXB: CALL 
ASR 
MOV 
MOV 
EMT 
RETURN 



CHKBCM 
R2 

#CLXEMT> HO 
R2, 2<R0) 
375 



Make common checks for SET CLn xxxBYPASS cmds 
Convert CL unit index back into unit number 
Point to emt arg block to set cln xon 
Set CL unit number into arg block 
Issue the command 



SET CLn RESETBYPASS Same as SET CLn RESETBYPASS, except uses EMT method 
R2 contains CL unit index 



STCLRB: CALL 
ASR 
MOV 
MOV 
EMT 
RETURN 



CHKBCM 
R2 

«CLREMT, RO 
R2>2<R0) 
375 



J Make common checks for SET CLn xxxBYPASS cmds 
; Convert CL unit index back into unit number 
i Point to EMT arg block to SET CLn RESET 
i Set CL unit number into arg block 



Common check routine for SET CLn XONBYPASS and RESETBYPASS 
Inputs; 

R2 contains CL unit index 



OOOOOOG CHKBCM: BIT #PO*BYP, PRIVCO 

BNE 1* 

FAB OR T #EM*BYP 

1*: TST CL*LIX<R2) 

BNE 2* 

JMP STCLNL 
2*: RETURN 



i Are lue privileged to use this command? 

; BR if OK 

; You must have BYPASS privilege for this cmd 

; Is specified CL unit connected to a line? 

i Br if so 

;El5e abort if not connected to a line 



I 
I 
I 

c 

i 



€ 
f 
i 
i 
€ 
t 
€ 
€ 

( 
I 
I 

f 



I 

I 

f 
f 



c 
I 
( 
t 
I 
I 

I 

c 



t 
i 
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5ET CL PARITY=-CEVEN ODD NONE> 



3 








4 








5 








6 








7 








S 


003726 


011404 




9 


003730 


016202 


OOOOOOG 


10 


003734 


001406 




11 


003736 


116205 


OOOOOIG 


12 


003742 


042705 


OOOOOOC 


13 


003746 


050405 




14 


003750 


000625 




15 


003752 






16 








17 








18 








19 


003762 


005004 




20 


003764 


000761 





Inp 
R2 
R4 

STCLPR: 
STCLPl: 



uts: 
= CL unit number index 
= Pointer to word with parity control flags 



MOV 

MOV 

BEG 

MOVE 

BIC 

J. iLi 

BR 



<R4),R4 i Get parity flags 

CL*LIX<R2), R2 i Get number of line CL unit is connected to 

9* J Br if not assigned to a line 

LMXPRM+KR2), R5 i Get current control flags for line 

#LP*PAR!LP*ODD, R5 i Clear parity control flags 

R4/ R5 J Put in new flags 

STCLSl » Go set value for line 



9*: 



FABORT #EM*CLN 



SET CL NOPARITY 



STCLNP: 



CLR 
BR 



R4 
STCLPl 



j CL unit is not assiqned to a line 



;Clear parity flags 
* Go do the set 



I 
I 
( 

I 

i 
i 
t 
C 

( 

i 
t 
t 

4 

i 
f 
t 
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CL 



3 
4 


003766 


016202 


OOOOOOG 


5 


003772 


001425 




6 


003774 


004767 


ooooooe 


7 


004000 


116205 


00000 le 


8 


004004 


042705 


OOOOOOG 


9 


004010 


020127 


000007 


10 


004014 


001003 




11 


004016 


052705 


OOOOOOG 


12 


004022 


000407 




13 


004024 


020127 


000010 


14 


004030 


001404 




15 


004032 






16 


004042 


000167 


177356 


17 


004046 







i SET 


CL BITS- 


=n 


i 

STCLBT: 


MOV 


CL«LIX<R2)>R2 




BEQ 


9* 




CALL 


ACRDEC 




MOVE 


LMXPRM+1<R2),R5 




BIC 


#LP*7BT, R5 




CMP 


Rl>#7. 




BNE 


1* 




BIS 


#LP*7BT, R5 




BR 


2* 


1*; 


CMP 


R1,#S. 




BEQ 


2* 




FABORT 


#EM*ICL 


2$: 


JMP 


STCLSl 


9$: 


FABORT 


#EM*CLN 



Get index for line CL unit is assigned to 
Br if not assigned to a line 
Accrue parameter value 
Get current flags for line 
Assume 8 bits wanted 

7 bits wanted? 
Br if not 

Set 7 bit flag 

8 bibs tija 1 1 1 e ij 7' 
Br if yes 

Invalid character length 

Go set value 

CL unit not assigned to line 



I 

i 
c 
I 

4 

I 



€ 

i 
i 

( 
I 
c 

i 

i 

i 

i 
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3 
4 
5 
6 
7 
8 
9 
10 
11 

12 

1 —I 

t, w 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



004056 



004056 004767 OOOOOOG 



004062 
004064 
004070 
004074 
004100 
004102 



004104 
004110 
004114 
004116 
004126 
004132 
004134 
004144 
004150 
004152 
004162 
004166 
004170 
004200 
004204 
004206 



113702 
120227 
001004 



001004 



001004 



001004 



SET CL LINE^n 
STCLLN: 

Accrue the line number 

CALL ACRDEC 
Do the EMT to assign this CL 



006202 

010267 173754 

012700 000042 

104375 

103045 



ASR 


R2 


MOV 


R2, CLAEMT+2 


MOV 


Rl,CLAEMT+4 


MOV 


#CLAEMT, RO 


EMT 


375 


BCC 


20* 



OOOOOOG 
000002 



120227 000003 
001004 



000004 



000005 



000006 



3*: 



4$: 



5*: 



6*: 



An error occurred on the EMT. 
Print an error message 

MOVB @#ERRLOC, R2 

CMPB R2. #2. 

I3NE 3* 

FABORT #EM*IUN 

CMPB R2> #3. 

BNE 4* 

FABORT #EM*ILN 

CMPB R2, #4. 

BNE 5* 

FABORT #EM*ACL 

CMPB R2, #5. 

BNE 6* 

FABORT #EM*TSL 

CMPB R2, #6. 

BNE 20* 

FABORT #EM*CLB 



i Accrue decimal value 

unit to a line and check for errors. 

; Convert CL unit index to unit # 

i Set CL unit number 

j Set time-sharing line number 

j Point to EMT argument block 

; Do the EMT 

j Br if no error 



> Get EMT error code 

; Invalid CL unit # 7 

i Br if not 

.: Invalid CL unit number 

; Invalid line number? 

; Br i f not 

* Invalid line number 

; Line already in use by a CL unit? 

; Br if not 

; Line already being used by CL 

j Is line in use by a time-sharing user' 

; Br if not 

;Line busy as time-sharing line 

; Is this CL unit currently busy? 

; Br if not 

>Thi5 CL unit is busy 



004216 000207 



Finished 
20*: RETURN 
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CL 



SET CL VER3I0N=n 



3 








> 






4 


004220 


004767 


OOOOOOG 


STCLVR: 


CALL 


ACRDEC 


5 


004224 


120127 


000017 




CMPB 


Rl,#15. 


6 


004230 


002403 






BLT 


9* 


7 


004232 


110167 


OOOOOOG 




MOVB 


R 1 , CLVERS 


8 


004236 


000404 






BR 


10* 


9 


004240 






9*: 


FABDRT 


#EM*IVN 


10 








> 






11 








; Finished 




12 








t 






13 


004250 


000207 




10*; 


RETURN 




14 















i Accrue parameter value 

J Is this a valid argument 

i Br if not 

» Set version number 

i Return 

/Invalid version number 



t 
< 

I 



f 
c 

I 

)' 

i 

I ^ 

t 

f 

i 
i 

I 
I 

< 

\ 
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( 
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ijti I vu.ri ENju/is ( R J.^4G— ' str 1 TiQ 



005762 
001002 
000167 
010446 
010546 



OOOOOOG 
177002 



OOOOOOG 



OUOOOk 



4 004252 

5 004256 

6 004260 

7 004264 
S 004266 
9 

10 
11 
12 004270 004767 OOOOOOG 

X •_> 

14 
15 

16 004274 020027 OOOOOOG 

17 004300 
18 
19 
20 

21 004302 

22 004306 

23 004310 

24 004312 

25 004314 

26 004320 

27 004322 

28 004324 
29 
30 
31 

32 004332 
33 
34 
35 

36 004336 

37 004402 
38 
39 
40 

41 004410 012605 

42 004412 012604 

43 004414 000207 
44 
45 
46 
47 004416 



CLESTR: TST 
BNE 
JMP 

2*: MOV 
MOV 



CL*LIX<R2) 
2* 

STCLNL 
R4, -<SP> 
R5, -(SP) 



i Is this CL unit assigned to a line? 
i Br if yes 
i Br if not 



Accrue the string 

CALL ACRSTR 



;Accrue the string 



Make sure the string is not too long 



020027 

101046 



012705 
005200 
060005 
010504 
062/04 
114544 
077002 
012767 



CMP RO, #CLEOFS 
BHI 10* 



; Is string too long? 
i Br if yes 



3*: 



Move string over in BLKO to allou room for ENDPAGE value in 1st word 

j Point to start of buffer 

j Get length of string with null 

; Point past last char in string 

.: Add 1 word offset 
; Move string over 



000377 OOOOOOG 



MOV 


#BLKO, R5 


INC 


RO 


ADD 


RO, R5 


MOV 


R5>R4 


ADD 


#2, R4 


MOVE 


-(R5), -<R4) 


SOB 


RO, 3* 


MOV 


#377, BLKO 



004767 000306 



Do lookup on CL unit 
CALL CLLOOK 



i Set value for ENDPAGE <377=no change) 



i Do lookup on channel 1 to CL unit 



Perform the . SPFUN to set the ENDSTRING 

. SPFUN #XAREA, #1, #CLSFEP, #BLKO, #10. , #0 
.CLOSE #1 i Close the channel 



Finished 



MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, R4 



; String is too long 

i 

10$: FAB OR T #EM$STL 



String too long 



I 

€ 

f 

I 

< 

I 

( 

i 

i 

I 

I 

t 

4 
I 
I 



I 
I 
t 

I 



I 



c 

r 



f f 

I * 
I 

f 

1' 

I 

i 



TSKST2 - 


-- Keyboard SET 


Command 


• 


CL 






1 
2 








3 








4 


004426 


016201 


OOOOOOG 


5 


004432 


001002 




6 


004434 


000167 


176626 


7 


004440 


004767 


000002 


8 

o 


004444 


000207 




10 








11 








12 








13 








14 








15 








16 








17 








IS 








19 


004446 


010446 




20 


004450 


010546 




21 








2:2 








23 








24 


004452 


016104 


OOOOOOG 


25 


004456 


001004 




26 


004460 






27 








28 








29 








30 


004470 


004767 


OOOOOOG 


31 


004474 


122327 


000075 


32 


004500 


001406 




33 


004502 


126327 


177777 


34 


004510 


001413 




35 


004512 


005303 




36 


004514 


000447 




37 


004516 


004767 


OOOOOOG 


38 


004522 


122327 


000050 


39 


004526 


001404 




40 


004530 






41 








42 








43 








44 


004540 


005005 




45 








46 








47 








48 


004542 


004767 


OOOOOOG 


49 


004546 


122327 


000051 


50 


004552 


001430 




51 


004554 


005303 




52 








53 








54 








55 


004556 


020527 


OOOOOOG 


56 


004562 


103404 




57 


004564 
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SET CLn TRAN3LATE==( ex t=intj ext=int» . . . ) 



CLTRNS: MOV 
BNE 
JMP 

2*: CALL 

RETURN 



CL«LIX(R2),R1 

2* 

STCLNL 

PRSTRN 



; Is this CL unit assigned to a line? 

; Br if yes 

; Br if not 

J Parse the translate qualifier 



Parse a translate qualifier of the form: 

TRANSLATE=(ext=int, ext=inti . . . ) 
and store the translation table for the line. 

Inputs: 
Rl = Line index number of line whose translation table is being set up. 
R3 = Pointer past end of keyword 



PRSTRN: MOV 
MOV 



R4, -<SP) 
R5, -(SP) 



Get pointer to translation table area for this line 



MOV LCXTBL<R1),R4 
BNE 7* 
FABORT #EM*TMT 



; Get pointer to translation table for line 

; Br if there is one 

i No translation table allocated 



See if equal sign and open paren follow keyword 



7*: 



1*: 



CALL 


SKPSPC 


CMPB 


(R3)+,#' = 


BEQ 


1* 


CMPB 


-1<R3).#'< 


BEQ 


2* 


DEC 


R3 


BR 


3* 


CALL 


SKPSPC 


CMPB 


<R3)+,#'< 


BEQ 


2* 



Skip over any spaces 

Does equal sign follow keyword? 

Br if yes 

Did user omit equal sign? 

Br if yes 

Point back to character 

Clear the translation table 

Skip more spaces 

Should have open paren 

Br if got open paren 

Invalid syntax 



FABORT #EM*CSE 
i Beqin to accrue each value pair 

2*: CLR R5 i Count pairs in R5 

i See if we have reached the end of the list 



5*: 



CALL 


SKPSPC 


CMPB 


<R3)+, #') 


BEQ 


3* 


DEC 


R3 



; Sk ip any spaces 

i At end of the list? 

; Br if yes 

i Point back to character 



See if we have room for another value 



CMP R5, #MXTTCT 
BLO 4* 
FABORT #EM*TMT 



; Room for another value? 

j Br if yes 

i Too many translation values 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
70 
79 
80 

ai 

82 
S3 
84 



CL 

004574 005205 



004576 004767 0000000 
004602 110164 000001 



004606 004767 0000000 

004612 110114 

004614 005724 

004616 004767 0000000 

004622 122327 000054 

004626 001745 

004630 005303 
000743 



004634 005014 



004636 U.1. k'60t> 
004640 012604 
004642 000207 



4*: INC R5 

Accrue the external value 



CALL 
MOVB 



ACROCT 
Rl. KR4) 



> Count another value 



i Accrue the external value 

; Store in high-order byte of word 



Accrue the internal value 

Accrue the internal value 

Store in low-order byte of word 

Point to next word 

Skip any spaces 

Comma separator? 

Br if yes 

Point back to char we skipped 

Loop and get rest of list 

We have reached the end of the list 

3$: CLR (R4) ; Store a zero to terminate the list 

i Finished 



CALL 


ACROCT 


MOVB 


Rl, (R4) 


TST 


<R4) + 


CALL 


SKPSPC 


CMPB 


<R3)+,#', 


BEQ 


5* 


DEC 


R3 


BR 


5* 



MOV 
MOV 
RETURN 



<SP)4-, R5 
<SP)+, R4 



i 



I < 

I 

i 
r 

I 

I 

i 
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i 

( 
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f < 

', 

I 



■2 - 


-- Keyboard SET 


Command 




CL 






1 








2 








3 








4 








5 








6 








7 








8 








9 








10 


004644 


010246 




11 








12 








13 








14 


004646 


006202 




15 


004650 


020227 


000007 


16 


004654 


101405 




17 


004656 


162702 


000010 


18 


004662 


066702 


173130 


19 


004666 


000402 




20 


004670 


066702 


173120 


21 


004674 


010267 


173104 


22 


004700 






23 


004720 


103402 




24 








25 








26 








27 


004722 


012602 




28 


004724 


000207 




29 








30 








31 








32 


004726 
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j Perform ei lookup on channel 1 to a specified CL unit. 

i Inputs: 

; R2 = CL. unit index number. 

> 

■> Outputs: 

; Channel 1 opened to CL unit. 

CLLOOK: MOV R2, -(SP.) 

i Construct CL device name 

.i Qet cl unit number 

; Should this be a CL or Cl unitT' 

i Br if CL 

(Remove Cl unit bias 

> Add "CIO" to form device name 

;Add "CLO" to form device name 
i Save device name 
.LOOKUP #XAREA, #1. #CLDfcV; Open channe.'l to CL unit 
I3CS 10* illr if error on lookup 





ASR 


R2 




CMP 


R2, #7. 




BLOS 


2* 




SUB 


#8. , R2 




ADD 


R50C10, R2 




BR 


1* 


2*: 


ADD 


R50CL0, R2 


1*: 


MOV 


R2, CLDEV 



Finished 



MOV 
RETURN 



{ SP ) +f R2 



J Error on lookup to CL unit 

10*: FABDRT #EM*IUN ; Invalid unit number 



I 
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Host 



an-TT! 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2^ 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



B-r-ri 
III 



SET HDST/DTE=n 

Cross connect time-sharint line with CL unit. 



004736 004767 OOOOOOG 



SETHST: CALL CKTERM 
Do command scanning 



J Require TERMINAL privilege for SET HOST 



004742 
004750 
004754 



012767 
012704 
004767 



177777 173114 

001670' 

0000000 



MOV 


#-l< TTXCL+4 


MOV 


#HOSTHD, R4 


CALL 


SCNOPS 



004760 
004764 
004770 
004772 
005002 
005004 
005010 
005014 
U0501to 
005026 
005030 
005034 
005036 
005040 
005044 
005046 



005056 
005062 
005070 
005076 
005102 



005104 
005112 
005120 
005126 



005132 
005134 
005140 
005144 
005150 
005152 
005154 



016705 
020527 
103404 

006305 
010567 
005765 
001004 

010500 
004767 
006300 
001407 
120067 
001404 



173100 
OOOOOOG 



173054 
OOOOOOG 



OOOOOOG 



OOOOOOG 



1$: 



116701 
016761 
016761 
012700 
104375 



016761 
016761 



OOOOOOG 

172712 OOOOOOG 
172706 OOOOOOG 
000060 ' 



OOOOOOG OOOOOOG 
000002G OOOOOOG 



000167 OOOOOOG 



; Initially set CL unit to -1 
iPoint to option driver table 
i Process the command options 

Check to make sure the CL unit is assigned to a line and is not 
in use by another user. 

i Get CL unit number 

; Is this a valid unit number 

i Br if yes 

> Invalid CL unit number 

/Convert to CL index number 

Is this CL unit connected to a line? 
Br if yes 

Not connected to line 
?*: MOV R5, RO i Get CL unit index 

See if CL unit in use by another job 
Any job using CL unit? 
Br if not 
Is it our job? 
Br if yes 
FABORT #EM*CLB iThis CL unit is busy 

Perform the connection 

3*: MOVB CORUSR/Rl ; Get our job index number 

MOV R50HST, LPROKRl); Set name of running program to »*HOST*" 

MOV R50HST+2, LPRG2(R1) 

MOV #TTXCL, RO ; Point to EMT argument block 

EMT 375 jMake the cross connection 

Print message saying crass connection broken 

MOV R50KMN, LPRGKRDj Reset program name to KMON 

MOV R 50KMN+2, LPRG2 < R 1 > 

. PRINT #TM*XBK 

JMP RDCMD j Finished with command 

Process the /PORT=ddn Qualifier 



MOV 


TTXCL+4,R5 


CMP 


R5, #CLTOTL 


BLD 


1$ 


FABORT 


#EM*IUN 


ASL 


R5 


MOV 


R5, TTXCL-i-4 


TST 


CL*LIX(R5) 


BNE 


2* 


FABORT 


#EM*CLN 


MOV 


R5, RO 


CALL 


CKCLUS 


ASL 


RO 


BEQ 


3* 


CMPB 


RO, CORUSR 


BEQ 


3* 



010246 
004767 
004767 
122327 
001401 
005303 
016700 



OOOOOOG 
OOOOOOG 
000072 



OOOOOOG 



HSTPRT: MOV 
CALL 
CALL 
CMPB 
BEQ 
DEC 

1*: MOV 



R2, -(SP) 

CHKEQ 

GTRD50 

(R3)+, #': 

1* 

R3 

R50BUF, RO 



i Equal sign should follow qualifier name 

; Accrue the device name 

iColon specified with device name? 

; Br if yes 

; Bac kup pointer 

i Get accrued device name 
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Host 



wo wW^iCDvy \J\J*^/Q/ \J\J\J\j\j\J\y 



59 005164 



540i 



60 005166 016200 OOOOOOG 

61 005172 004767 OOOOOOG 

62 005176 103404 

63 005200 010067 172660 

64 005204 012602 

65 005206 000207 

66 005210 

A -7 

68 
69 

/W \>WWC£.«^W WXWX-+W 

71 
72 
73 

74 005222 004767 OOOOOOG 

75 005226 010167 172632 

76 005232 012601 

77 005234 000207 
78 

79 OOOOOi 

Errors detected: 

*** Assembler statistics 



J See if this is a logical device name 

i Br if not logical name 

i Get physical device name 

i Convert CL and CI names to unit numbers 

i Br if not CL or CI unit 

j Set CL unit number 



; Port unit must be CL or CI unit 
i Process the /DTE=n SET HOST qualifier 
HSTDTE : HOV H 1 , - < 3P ) 





CALL 


ASNSRC 




BCS 


2* 




MOV 


AT*DEV<R2),R0 


2*: 


CALL 


CHKCLU 




BCS 


10* 




MOV 


RO, TTXCL+4 




MOV 


(SP)+, R2 




RETURN 




10*: 


FABORT 


#EM*CLX 



Accrue the CL unit number 



CALL 


ACRDEC 


MOV 


Rl, TTXCL+4 


MOV 


(SP)+.R1 


RETURN 





^Accrue the CL unit number 

; Store CL unit index in EMT arq block 



END 



Work file reads: 

Work file writes: 

Size of work file: 12016 Words ( 47 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-ll 

Elapsed time: 00:01:22.17 

, LP: TSKST2=DK: TSKST2/C/N: SYM 
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Cross reference table (CREF V05. 05) 

*SBIT 1-111 5-20 5-21 5-47 5-77 5-78 5-79 

*ALTER 1-111 5-6 5-52 5-53 

« *AUTO 1-87 5-8 16-6 19-5 

*CARUP 1-85 

*CCLRN 1-86 

^ *CFABT 1-106 

*CFALL 1-112 

$CFCCL 1-112 

' < *CFDCC 1-112 

I *CFOFN 1-118 

*CFSOT 1-110 

*CHACT 1-61 

*CLTST 1-96 



■ *CrRLC 1-104 

• fCTRLD 1-154 



$CTRLD 1-61 

*CTRLS 1-91 

t *DBKMN 1-84 

*DEAD 1-158 5-10 5-11 15-14 

SDEBUG 1-155 

i *DEFER 1-124 5-13 5-14 

*DETCH i-"89 

*D1JB0L, l~/d 

• *DILUP 1-108 7-16 14-47 15-8 19-6 23-151 



*DISCN 1-90 

*DOOFF 1-114 

*DUPRN 1-109 

*ECHO 1-111 5-18 5-19 

*EMTTR 1-95 

< $FORM 1-110 5-22 5~23 

*FORMO 1-112 5-24 5-25 

*HARD 1-158 

* *HITTY 1-72 

$INCOR 1-128 

*INDAB 1-159 



$INDDF 1-157 
*INDRN 1-157 
*INIT 1-158 



< $INKMN 1-104 

[ *KED 1-128 

*KINIT 1-68 

I < *LC 1-111 5-33 5-34 



*LOFCF 1-20C 
$MLOCK 1-77 
*NOIN 1-72 



*NOINT 1-204 

*NOWTT 1-72 23-139 23-145 

* *PAGE 1-111 5-36 5-37 
*PHONE 1-158 5-40 5-41 
*PRGLK 1 -87 

I *QTSET 1-133 23-103 23-120 

*QUIET 1-125 23-104 23-121 

*RNIOP 1-205 

* *SCOPE 1-111 5-45 23-132 
$SGALL 1-124 



t 
f 
I 
i 

i 

i 

i 

I 

t 

i 

i 

i 

< 

i 

< 

( 
I 
i 
i 
I 





TSKST2 


— Keyboard SET Command MACRO 


V05. 05 


Thursday 19 


-Jan-S9 14 


: 58 Page 


S-2 












Cross reference 


table (CREF 


V05. 05) 
























*SGHIO 
*SGIIO 


1-123 
1-123 




























*SGQO 


1-105 


























I ' 


*SGQ1 
$SGQ1A 


1-123 
1-123 




























*SGQ1B 


1-123 


























*SGQ1C 


1-123 




























*SGQ2 


1-123 


























■ 


*SGQ3 


1-105 


























*SLKED 


1-82 


























1 


*SLLET 


1-202 




























liSLO.N 


1-202 


23-16 


23-40 


23-76 


23-34 


23-93 


23-133 














*SLTTY 


1-202 




























*SNWTT 


1-155 


23-138 


23-144 
























*SPLJB 


1-91 


























*STSNG 


1-61 


5-48 


5 49 






















\ 


*SUCF 


1-113 




























*SYSPS 


1-160 


5-54 


5-55 


5-56 


5-57 


5-58 


5-59 














*TAB 


1-110 


5-60 


5-61 
























*TAPE 


1-153 


5-62 


5-63 






















1 g 


*TECO 


1-133 


























«TTGAG 


1-118 


5-26 


5-27 
























*UCLCF 


1-119 


























1 


«UCLCL 


1-121 


























*UCLCM 


1-121 


























1 


*UCLRN 


1-120 


























1 


*UKMON 


1-85 


























*VNOTT 


1-48 




























*VTESC 


1-81 




























*WILD 


1-134 


























... VI 


S-25 


8-28 


23-107 


23-110 


23-124 


23-127 


24-132 


24- 


-134 


24-134 


24-136 


30-36 


30-37 


i 




30-37 


32-22 


32-22 


32-22 


33-46 


















\i 


. . . V2 


23-110 


23-1 10# 


23-1 10# 


23-127 


23-127# 


23-127# 


24-132 


24- 


-132 


24-132 


24-1 32# 


24-1 32# 


24-132 




24-134 


24-134# 


24-136 


24-136# 


30-36 


30-36 


30-36 


30- 


-36# 


30~36# 


30-36# 


30-37 


30-37# 






32-22 


32-22 


32-22# 


32-22# 




















, * 


. . . V3 


23-110 


23-110 


23-1 10# 


23-127 


23-127 


23-127# 
















ABRTAD 


1-48 


























) 


ABRTCD 


1-48 


























ABRTCF 


1-165 


























ACRDEC 


1-173 


7-8 


8-9 


14-28 


21-7 


24-77 


27-6 


28- 


-8 


29-4 


33-74 






1 


ACRFIL 


1-172 


























1 ( 


ACRFN 


1-165 


























ACROCT 


1-175 


31-62 


31-67 






















1 , 


ACRSPD 


1-76 


16-5 


24-101 






















ACRSTR 


1-37 


9-23 


30-12 






















ACRTXT 


1-39 




























AD**SZ 


1-64 




























AD*DVU 


1-64 


























AD*JOB 


1-64 




























ADM3A 


1-148 


23-83 


























ADM3FL 


1-149 


23-82 
























ADM3N0 


1-151 


23-81 


























AF*DBG 


1-204 




























AF*HIE 


1-204 




























AF*IOP 


1-205 




























AF*MEM 


1-47 
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C 
I 
i 
i 
i 
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Cross reference table <CREF V05. 05) 

AF*NOI 1-204 

AF*NOW 1-47 

AF*PLK 1-204 

AF*SCA 1-47 

ALCDEV 1-30 

ALCEND 1-63 

ALCHDl 1-60 

ALCHD2 1-60 

ALCTBL 1-63 

ALDBLK 1-188 

ALDEX 1-187 1-1B8 

Al C-KI •! — 1 OO 

f-ll_( IM i J. / / 

AMBOPT 1-173 1-186 

AR**SZ 1-202 

AR«CNT 1-201 

AR*CON 1-201 

AR*CPH 1-201 

AR*CPL 1-201 

AR*DMY 1-202 

AR*PRG 1-201 

AR*PRJ 1-201 

AR*UNM 1-201 

ARNRPB 1-202 

ASUEX 1-1/0 

ASKLNM 1-169 

ASNHDl 1-182 

ASNHD2 1-182 

ASNOVF 1-170 1-195 

ASNSRC 1-137 33-58 

AT*DEV 1-56 33-60 

AUTHFN 1-192 

BADCMD 1-169 

BADPMT 1-176 

BADPRI 1-176 8-22 

BADSAV 1-169 

BASMAP 1-142 

BDFNAM 1-172 

BDLGOP 1-177 

BDLIN 1-190 

BELL 2-7# 

BLANK 2-6# 

BLKO 1-168 9-28 30-21 30~2S# 30-36 

BLKWDS 2-1 1# 

BOTDEV 1-103 

BOTUNI 1-103 

BSOl 16-16 17-10 18-14 19-10 23~27 23-29# 23-111 23-128 23-134 23-161 23-169 

BS02 23-9 23-20# 23-41 23-48 23-55 23-62 23-69 23-77 23-85 23-94 

C. CSW 1-115 

C. DEVQ 1-115 

C. SBLK 1-115 

C. USED 1-41 

CALUCL l~iSl 

CASCBR 1-97 

CASCUP 1-97 

CASTBR 1-97 

CASTBW 1-97 
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Cross reference table (CREF V05. 05) 



CASTRO 


1-98 








CASTWO 


1-98 








CCLNAM 


1-196 








CCLSAV 


1-94 








CD**SZ 


1-116 








CD*«UB 


1-116 








CD$BAS 


1-116 








CD$DVU 


1-116 








CD* JOB 


1-116 








CD*NAM 


1-116 








CD* TOP 


1-133 








CDBUF 


1-38 








CDGET 


1-38 








CF* I ND 


1-159 








CF*QUT 


1-159 


23-109 


23- 


-126 


CFABLV 


1-160 








CFBLK 


1-125 








CFBUF 


1-94 








CFCHAN 


1-124 








CFEND 


1-94 








CFHOLD 


1-132 








CFIIMD 


1-114 








CFLFL4 


1-119 








CFNEST 


1-117 








CFPNT 


1-125 








CFSEND 


1-118 








CFSP 


1-118 








CFSPND 


1-131 








CFSTK 


1-68 








CFSTS 


1-159 


23-107 


23- 


-110 


CHAIN 


1-104 








CHKALC 


1-111 


24-37 






CHKBCM 


25-11 


25-22 


25- 


-33# 


CHKCLU 


1-36 


33-61 






CHKDEV 


1-196 








CHKDLM 


1-186 








CHKEQ 


1-45 


9-9 


33- 


-52 


CHKMNT 


1-171 








CHKMTX 


1-171 








CHKTTD 


1-194 








CHNSIZ 


1-41 








CINDAT 


1-141 








CINFLG 


1-48 








CKACOJ 


1-45 


12-11 


13- 


-19 


CKCLUS 


1-37 


33-27 






CKPRIV 


1-173 


15-4 






CKSYPV 


1-45 








CKTERH 


1-174 


14-40 


16~ 


-4 




23-165 


24-8 


33- 


-6 


CL*COL 


1-66 








CL*EPN 


1-41 


5-99 






CL«EPS 


1-41 








CL*LEN 


1-101 


5-J15 






CL$LIN 


1-101 


24-94* 






CL*LIX 


1-62 
31-4 


24-61 
33-23 


24- 


-68 



4 
f 

I 

i 
I 

c 
i 

i 
f 
I 

I 

23-110 23-124 23-127 

4 

f 

( 

17-4 18-7 19-4 20-5 21-4 22-8 22-16 23-150 23-157 

t 

I 
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Cross re-Ference table <CREF V05. 05) 



CL*OPT 1-100 24-63* 24-70^ 

CL«RQH 1-63 

CL*SKP 1-101 5-136 

CL$WID l-IOl 5-137 24-87* 

CL*WQH 1-63 

CL*XLN 1-37 



CLNCKA 5-144# 24-34 

CLOPHD 5-93# 24-31 

CLOTIR 1-65 

CLPRHD 5-130 5-151# 24-145 



CLRDTR 5-17 18-6# 
• CLREMT 4~35# 25-24 



CLSFCH 1-69 24-119 

I CLSFEP 1-42 30-36 30-36 

CLSFRS 1-34 24-124 

CLSFSP 1-98 

< CLSPFN 24-120 24-129# 
CLTOP 5-133 24-92# 

CLTOTL 1-98 24-9 33-18 

• CLTRNS 5-134 31-4# 

CLUNIT 1-57 

CLVERS 1-57 29-7* 

1 CLXEHT 4-30# 25-13 

CMDBUF 1-164 1-181 

CMDCCL 1-196 

i CMDDSN 1-29 

CMDFRM 1-29 

CMDHD 1-28 

< CMDMEM 1-30 
CMDOFF 1-28 
CMDSET 1 -30 
CMDSHO 1-30 
CMDUSE 1-30 
CMDWHO 1-30 
C0*8BT 1-115 5-125 5-126 5-127 5-128 5-J29 5-13^ 



5- 


-125 


5- 


-121 


5- 


-123 


5- 


-95 


5- 


-113 


5- 


-97 


5- 


-101 



CO$BNI 1-100 

CO«BNO 1-100 

CO«CR 1-99 

COfCTL 1-99 

CO*DEF 1 - 66 

CO*DTR 1-98 

CO«FF 1-99 5-101 5-102 5-103 5-104 



5- 


-126 


5- 


-122 


5- 


-124 


5- 


-96 


5- 


-114 


5- 


-98 


5- 


-102 



< CLAEMT 4-24# 28-13* 28-14* 28-15 
CLCLOP 5-96 5-98 5-102 5-104 5-106 5-110 5 112 5=114 5-117 5-119 5-122 5-124 

5-127 5-128 5-129 5-132 24-6S# 

< CLDEV 4-5# 32-21* 32-22 I 
CLDEVX 1-139 

CLESTR 5-100 30-4# 

CLFREE 1-57 

CLLINE 1-57 

< CLLOOK 24-131 30-32 32-10# 



I 

i 
I 



CLRPRV 1-43 6-14 

CLRTTB S-14 5-.IV 5-i-n 5-23 5-25 5-27 5-34 5-37 5-47 5-49 5-52 5-53 

i 5-61 5-63 5-78 5-79 23-166# € 

CLRTTP 5-8 5-11 5-41 5-55 5-57 5-59 23-165# 



t 

« 
i 

i 

I 

{ 



i 
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COfFFO 


i-99 


5-105 


5-106 




CO*LC 


1-99 


5-109 


5-110 




CO*LFI 


1-100 


5-116 


5-117 




COfLFO 


1-100 


5-118 


5-119 




CO*TAB 


1-99 


5-111 


5-112 




COAD 


1-187 


1-188 






COAF 


1-200 








COAL 


1-187 


i-lS8 






COLOO 


1-181 








COMMA 


2-10# 








C0NFG2 


1-62 








CONFIG 


1-113 








CORUSR 


1-61 


6-10 


10-15 


11-22 


CPFAUT 


4-14# 


5-174 


11-29 




CPFLAG 


4-S# 


6-13* 


9-65* 


11-29 


CPFRES 


4-13# 


5-173 


13-8 


13-25 


CPFSUS 


4~12# 


5-172 


13-8 




CPNAME 


4-19# 


6-11 a 


9-10 


9-41 


CPOPHD 


5-167# 


6-18 






CPPFLG 


5-172 


5-173 


5-174 


9-65# 


CPPID 


4-1 /# 


6-10*- 


7-18* 


10-14 


CPPNAM 


5-170 


9-4# 






CPPPID 


5-169 


7-4» 






CPPPRI 


5-171 


S-4# 






CPPRIO 


4~1Q# 


6-1 2s 


8-17* 


12-8 


CPSFLG 


6-26 


13-44i 






CPSNAM 


6-23 


10-4# 






CPSPRI 


6-24 


12-4# 






CPSPRV 


6-25 


ll-4# 






CPUAH 


1-181 








CPUAL 


1-181 








CR 


2-5# 








CRLF 


1-176 


8-2B 






CS*RON 


1-80 








CSHALC 


1-103 








CSHDEV 


1-108 








CSHDVN 


1-lOS 








CSHHD 


1-163 








CSHMSG 


1-203 








CSHSIZ 


1-143 








CSIMSl 


1-175 


24-45 






CSIMS2 


1-173 








CSIMS4 


1-195 








CTRLTT 


1-102 








CURMTX 


1-186 








CURPRM 


1-130 








CVDVNM 


1-183 








CVTTAB 


1-164 








CVTUC 


1-163 








CW*50H 
CW*PRO 


1-113 
1-62 








CXTBAS 


1-107 








CXTPAG 


1-79 








CXTRMN 


1-41 








CXTWDS 


1-107 








DATTIM 


1-29 









13-14 23-20 23-99 23-105 23-116 23-122 33-30 33-36 

13-8 13-25 

9-48 10-9 10-21 

11-22 12-10 J a- 13 

12-16 12-17 
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DCCRD 
DCCWR 
DCTRD 


1-137 
1-137 
1-137 










DCTWR 

DEADEV 

DELSPC 


1-137 
1-171 
1-185 








) ^ 


DETARG 


1-200 








DETHD 


1-200 










DETTXT 


1-179 










DEVHDl 


1-102 








1 


DEVIDL 


1-187 


1-187 


1-188 






DEVUNT 


1-174 










DFJMEM 


1-68 










DIABFL 


1-125 


23-91 








DIABLO 


1-147 


23-92 








DIABNO 
DIVIDE 
DIVSOR 


1-126 
1-180 
1-193 


23-90 






1 % 


D JAB MS 
DKASHD 
DKSAV 


1-191 

1-59 

1-164 










DLCEMT 

DLMSG 

DLTXT 


1-30 

1-191 

1-178 










DMT ALL 
DMTARG 
DMTSUB 


1-191 
1-170 
1-196 










DOASGN 
DOR UN 
DOSTOP 


1-85 
1-29 
1-192 










DTRCOM 


18-5 


18-7# 








DTREMT 


4-57# 


lS-4« 


lS-"6« 


lS-9# 




DVSHHl 


1-59 








4 


DVSHH2 
DVSHH3 
DVSTAT 


1-59 
1-59 
1-76 










D2TXT 

EDIT 

EDTFIL 


1-198 

1-73 

1-184 










EM*ACL 


1-54 


28-31 








EM*BYP 


1-39 


25-35 








EM*CAP 


1-44 


11-63 








EM*CIP 


1-53 










EMtCLB 


1-54 


28-37 


33-32 






EMfCLN 


1-53 


24-57 


26-15 


27-17 




EM*CLU 


1-34 


15-22 








EM*CLX 


1-36 


33-66 








EM*CNO 


1-44 


10-34 








EM*CPO 


1-44 


11-59 








EM*CSE 


1-70 


24-49 


31 40 






EM*HNI 


1-68 










EMflCL 


1-52 


21-1 S 


27-15 






EM*IDR 


1-42 


13-38 








EM*ILN 


1-53 


1-54 


7-27 


14-36 




EM* I ST 


1-42 










EM$IUN 


1-53 


24-11 


24-115 


24-137 



18-11 



33-25 



16-20 17-11 18-15 28-28 

28-25 32-32 33-20 



f 
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EM*IVN i-53 29-9 

EM«LAS 1-34 15-10 

EM*LFD 1-34 15-16 

EM*NAD 1-46 

EM*NPD 1-53 

EM*NPR 1-45 10-35 

EM$NSF 1-53 

EM*NSL 1-54 

EM*NUK 1-86 

EM*OPR 1-36 

EM*PTA 1-36 

EM*FTu i-36 

EHfSLT 1-54 

EM*SLW 1-54 

EM$SPL 1-39 

EM*STL 1-42 9-55 30-47 

EM*TMT 1-34 31-26 31-57 

EM*TSL 1-54 28-34 

EM*UIO 1-55 

EM*WCO 1-40 

E«*WC1 1-40 

EM*WC2 1-40 

EM$WC3 1-40 

EM*WCri 1 - 40 

ERRLOC 1-67 28-22 

ERRSEV 1-134 

E.SC 1 ~"Oir- 

FC*CDX 1-163 

FC*LNK 1-163 

FD*NAM 1-163 

FF 2-9# 

FILNAM 1-165 1-166 

FKILL 1-165 7-27 7-28 10-34 10-35 11-59 11-63 13-38 
16-20 17-11 18-15 21-15 23-153 24-11 24-45 24-49 
26-15 27-15 27-17 28-25 28-28 28-31 28-34 28-37 
31-57 32-32 33-20 33-25 33-32 33-66 

FPRINT 1-165 8-22 9-55 



14- 


-36 


24- 


-57 


29- 


-9 



15-10 


15-16 


15-22 


24-115 


24-137 


25-35 


30-47 


31-26 


31-40 



FSTDL 1-89 

FSTIOL 1-62 1-79 

GAGMSG 1-190 

OENTOP 1-103 

GETKCH 1-77 

GRTl 1-144 

GTRDc?u I — i/u oj— i>v3 

H. CSR 1-76 

H. VEC 1-76 

HANBSY 1-175 

HANCHN 1-64 

* HANENT 1-75 

HANPAR 1-76 

HANSIZ 1-75 

t HAZEL 1-77 23-75 

HAZLFL 1-77 23-74 



I 
I 
I 
« 
i 
I 



I 



HAZLNO 1-77 23-73 
HIMAP 1-142 
HIPRI 1-176 



i 
i 
i 
f 

< 

« 
( 
I 
* 
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i 
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HNBUF 1-174 

HOSTHD 5-159# 33-11 

HSTDTE 5-160 5-161 33-70# 

< HSTPRT 5-162 33-51# 
HUPARG 1-195 
II**SZ 1-46 

* II*FLG 1-46 
II*NAM 1-46 
II*h4Py 1-4S 
II*PRV 1-48 
IIBUF 1-46 
ILLCMD 1-171 

* ILSW2 1-83 14-49 23-32 it 
IN*ACT 1-157 
IN*CMD 1-157 

i IN*CNT 1-157 

INDACT 1-167 

INDERR 1-106 

INDSAV 1-157 

INDSTA 1-106 

I NF OMT 1-171 

I INGADR 1-46 

INGEMT 1-46 

INSTBL 1-46 

t INSTBN 1-47 

' INVDAT 1-200 

INVDEV 1-199 

t INVEC 1-158 

INVLDM 1-195 

INVLDN 1-172 

i INVOPT 1-165 1-171 1-186 

INVTIM 1-191 

lOABFL 1-61 

< ITRMTP 1-159 23-28* 
JCXPGS 1-142 

JCXSMS 1-198 

< JPWDEV 1-39 
JPWFLG 1-39 
JPWTYP 1-39 

i JSTKND 1-102 

JSWLOC 1-67 

K52 1-73 

« KBMSG 1-180 

KBTX 1-184 

KCSIBF 1-169 

I KCSIMS 1-170 

KDOCIN 1-28 

KED 1-73 

< KILEMT 1-192 
KL3CLR 1-87 
KL4CLR 1-127 

< Ki^NBAS 1-154 
KMNCHN 1-94 
KHNHI 1-78 

* KMNNAM 1-196 
KMNPGS 1-79 



I 
I 

I 

I 
f 

i 
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i 
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i 

i 



KMNSTK 


i-79 






KMNSTR 


1-79 






KMNTOP 


1-79 






KMPRMT 


1-138 






L 


5-5 


5-5# 


5-6 




5-11 


5-ll# 


5-12 




5-17 


5-17# 


5-18 




5-23 


5-23# 


5-24 




5-29 


5-29# 


5-30 




5-35 


5-35# 


5-36 




5-41 


5-4 1# 


5-42 




5-47 


5-47# 


5-48 




5-53 


5-53# 


5-54 




5-59 


5-59# 


5-60 




5-65 


5-65# 


5-66 




5-71 


5-7i# 


5-72 




5-77 


5-77# 


5-78 




5-94 


5-94# 


5-95 




5-100 


5-i00# 


5-101 




5-106 


5-106# 


5-107 




5-112 


5-1 12# 


5-113 




5-118 


5-118# 


5-119 




5-124 


5-124# 


5-125 




5-130 


5~130# 


5-131 




5-136 


5-136# 


5-137 




5-146 


5-146# 


5-152 




5-162 


5-162# 


5-168 




5-173 


5-173# 


5-174 


LA 120 


1-147 


23-39 




LA12FL 


1-148 


23-38 




LA12N0 


1-148 


23-37 




LA36 


1-147 


23-15 




LA36FL 


1-126 


23-14 




LA36N0 


1-126 


23-13 




LACTIV 


1-80 






LAFSIZ 


1-83 






LBSPRI 


1-160 


12-16* 




LCBIT 


1-147 






LCDTYP 


1-66 






LCLTXT 


1-57 






LCLUNT 


1-62 


1 5-20 




LCOL 


1-82 


1-133 




LCONTM 


1-91 






LCPUHI 


1-91 






LCPULO 


1-91 






LCXTBL 


1-34 


31-24 




LD*RON 


1-121 






LDBASE 


1-122 






LDCLEN 


1-71 






LDDEVX 


1-124 






LDFLAG 


1-122 






LDMNT 


1-70 






LDNAM 


1-169 






LDNAME 


1-122 






LDOPHD 


1-177 






LDPDEV 


1-122 







5--6# 


5-7 


5-12# 


5-13 


5~1S# 


5-19 


5-24# 


5-25 


5-30# 


5-31 


5-36# 


5-37 


5-42# 


5-43 


5-4S# 


5-49 


5-54# 


5-55 


5~60# 


5-61 


5~66# 


5-67 


5-72# 


5-73 


5~7S# 


5-79 


5-95# 


5-96 


5-101# 


5-102 


5-107# 


5-108 


5-1 13# 


5-114 


5-1 19# 


5-120 


5-125# 


5-126 


5~131# 


5-132 


5-137# 


5-138 


5-1 52# 


5-153 


5-16S# 


5-169 


5-1 74# 





5-7# 


5-8 


5-13# 


5-14 


5-19# 


5-20 


5-25# 


5-26 


5-31# 


5-32 


5-37# 


5-38 


5-43# 


5-44 


5-49# 


5-50 


5-55# 


5-56 


5-6 1# 


5-62 


5-67# 


5-68 


5-73# 


5-74 


5~79# 


5-85 


5-96# 


5-97 


5-102# 


5-103 


5-10S# 


5-109 


5-1 14# 


5-115 


5-120# 


5-121 


5-126# 


5-127 


5-132# 


5-133 


5-13S# 


5-139 


5-1 53# 


5-154 


5-169# 


5-170 



5-S# 


5-9 


5-14# 


5-15 


5-20# 


5-21 


5-26# 


5-27 


5-32# 


5-33 


5-3S# 


5-39 


5-44# 


5-45 


5-50# 


5-51 


5-56# 


5-57 


5~62# 


5-63 


5-68# 


5-69 


5-74# 


5-75 


5-85# 


5-86 


5-97# 


5-98 


5-103# 


5-104 


5~109# 


5-110 


5-115# 


5-116 


5-1 21 # 


5-122 


5-127# 


5-128 


5-133# 


5-134 


5-139# 


5-140 


5-1 54# 


5-160 


5-1 70# 


5-171 



5-9# 


5-10 


5-1 5# 


5-16 


5-2 1# 


5-22 


5-27# 


5-28 


5-33# 


5-34 


5~39# 


5-40 


5-4 5# 


5-46 


5-51# 


5-52 


5-57# 


5-58 


5-63# 


5-64 


5-69# 


5-70 


5-75# 


5-76 


5-86# 


5-87 


5-9S# 


5-99 


5-104# 


5-105 


5-1 10# 


5-111 


5-1 16# 


5-117 


5-122# 


5-123 


5-12e# 


5-129 


5-1 34# 


5-135 


5 140# 


5-145 


5~i60# 


5-161 


5-171# 


5-172 



5-10# 

5-16# 

5-22# 

5-2S# 

5-34# 

5-40# 

5-46# 

5-52# 

5-58# 

5-64# 

5-70# 

5-76# 

5-S7# 

5-99# 

5-105# 

5-ill# 

5-1 17# 

5-123# 

5-129# 

5-1 35# 

5-145# 

5-161# 

5-172# 
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i 
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LDSIZE 


1-122 














LF 


2-4# 














LF*OPN 


1-162 














LF*WRT 


1-162 














LFWLIM 


1-83 














LICTXT 


1-144 














LINBUF 


1-78 














L INC NT 


i~eo 














L INCUR 


1-83 














LINFRE 


1-191 














LINIR 


1-65 














LINNXT 


1-73 














LINPNT 


1-80 














LINRTS 


1-65 














LITIME 


1-105 














LJSW 


1-102 














LMXLN 


1-150 














LMXNUM 


1-156 














LMXPRM 


1-159 


16-7 


21-5 


22-9 


22- 


-17 


24-10 


LNAME 


1-60 














LNBLKS 


i-i07 














LNMAP 


1-113 














LNPRIM 


1-113 


22-2 b 












LNSBLK 


1-108 














LNSPAC 


1-117 














LOCKTX 


1-lSO 














LOFSPC 


1-110 














LOGASN 


1-172 














LOGBAS 


1-132 


1-^^34 












LOGBLK 


1-161 














LOGBUF 


1-161 














LOGCHK 


1-133 














LOGCHN 


1-161 














LOGCLS 


1-176 














LOGDVU 


1-132 


1-134 












LOGFLG 


1-161 














LOGPTR 


1-161 














LOMAP 


1-142 














LOTBUF 


1-81 














LOTNXT 


1-81 














LOTPNT 


1-81 














LOTS I Z 


1-82 














LOTSPC 


1-82 














LOUT I R 


1-65 














LP*7BT 


1-52 


21-S 


21-11 


27 ~S 


27- 


•11 




LP*ODD 


1-52 


5-86 


5-153 


22-10 


22- 


-18 


26-12 


LP*PAR 


1-52 


5-85 


5-86 


5-152 


5- 


-153 


22-10 


LP*SPD 


1-52 


16-8 


24-103 










LPRGl 


1-145 


33-37 it 


33-44<^ 










LPRG2 


1-145 


33-38+^ 


33-451* 










LPRI 


1-160 


12-17*^ 












LPROG 


1-90 














LPROJ 


1-90 














LRBFIL 


1-114 














LRDTIM 


1-80 














LSCCA 


1-110 















26-11 27-7 



22-18 26-12 
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L3ECPT 


i-95 


























LSPEMT 


4-46# 


16-10* 


16-11* 


16-12* 


16-13 


24-105* 


24-107* 


24-108 












LSTACT 


1-78 


























LSTATE 


1-140 


























LSTDL 


1-89 


























LSTHL 


1-62 


























LSTIOL 


1-62 


























LSTMX 


1-156 


























LSTPL 


1-135 


14-34 
























LSTPRM 


1-131 


























LSTSL 


1-140 


7-14 
























L3TSPL 


1-76 


























LSUCF 


1-36 


























LSW 


1-61 


7-16 


14-47 


15-8 


19-6 


23-151 
















LSW2 


1-104 


5-6 


5~S 


5-13 


5-14 


5-18 


5-19 


5-20 


5-21 


5-22 


5-23 


5- 


-33 




5-34 


5-36 


5-37 


5-40 


5-41 


5-45 


5-47 


5-52 


5-53 


5-54 


5-55 


5- 


"56 




5-57 


5-58 


5-59 


5-60 


5-61 


5-62 


5-63 


5-77 


5-78 


5-79 


14-49* 


16- 


-6* 




19-5* 


23-6* 


23-7* 


23-13* 


23-14* 


23-29 


23-32 


23-37* 


23-38* 


23-45* 


23-46* 


23- 


-52* 




23-53# 


23-59* 


23-60* 


23-66* 


23-67* 


23-73* 


23-74* 


23-81* 


23-82* 


23-90* 


23-91* 


23- 


-103* 




23-120* 


23-132* 
























LSW2S 


i-109 


23-29* 
























LSW3 


1-109 


5-10 


5-11 


15-14 




















LSW4 


1-127 


5-24 


5-25 


23-104* 


23-121* 


















LSW5 


1 -87 


23-139* 


23-145* 






















LSW6 


1-155 


5-48 


5-49 


23-138* 


23-144* 


















LSW7 


1-159 


5-26 


5-27 


23-16* 


23-40* 


23-76* 


23~S4* 


23-93* 


23-133* 










LSW8 


1-123 


























LSW9 


1-85 


























LTRMTP 


1-148 


23-8* 


23-15* 


23-28 


23-39* 


23-47* 


23-54* 


23-61* 


23-68* 


23-75* 


23-83* 


23- 


-92* 


LTSCMD 


1-117 


























LUNAME 


1-90 


10-20 
























LWINDO 


1-34 


23-22 
























MAXALC 


1-63 


























MAXASN 


1-106 


























MAXAVL 


1-174 


























MAX MEM 


1-67 


























MAXMTX 


1-186 


























MAXPRI 


1-67 


1-160 
























MAXSEC 


1-95 


























MDT 


1-77 


























MHNSIZ 


1-96 


























MHNSMS 


1-97 


























MINTIM 


1-95 


























MISSEG 


1-175 


























MNBASE 


1-185 


























MNBPC 


1-184 


























MNFLGS 


1-184 


























MNTARG 


1-195 


























MNTDEV 


1-170 


























MNTFUL 


1-172 


























MNTOP 


1-185 


























MNTTXT 


1-197 


























MONAR 1 


1-185 


























M0NAR2 


1-185 


























MONHD 


1-185 


























MONVEC 


i-160 


23-107 


23-110 


23-124 


23-127 
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MSQBUF 


1-190 






MSGEND 


1-190 






MTOPHD 


1-171 






MUL32 


1-200 






MXCSR 


1-156 






MXDTR 


1-156 






MXJADR 


1-69 






MXJMEM 


1-68 






MXJPRI 


1-160 


8- 


-15 


MXPRMT 


1-138 






MXTTCT 


1-34 


31- 


-55 


MXVEC 


1-158 






NAMTOP 


1-144 






NARGS 


5-4# 


5- 


-5 




5-10 


5- 


-11 




5-16 


5- 


-17 




5-22 


5- 


-23 




5-20 


5- 


-29 




5-34 


5- 


-35 




5-40 


5- 


-41 




5-46 


5- 


-47 




5-52 


5- 


-53 




5-58 


5" 


-59 




!5-64 


3- 


-6t7 




5-70 


5- 


-71 




5-76 


5- 


-77 




5-87 


5- 


-87 




5-98 


5- 


-99 




5-104 


5- 


-105 




5-110 


5- 


-in 




5-116 


5- 


-117 




5-122 


5- 


-123 




5-128 


5- 


-129 




5-134 


5- 


-135 




5-140 


5- 


-145 




5-159# 


5- 


-160 




5-170 


5- 


-170 


NAT XT 


1-178 






NEDCHR 


1-65 






NEWJSW 


1-102 






NFRESB 


1-129 






NINTXT 


1-178 






NLINES 


1-115 






NOCCL 


1-177 






NOCIN 


1-169 






NODAT 


1-183 






NOFIL 


1-181 


1- 


-189 


NOFLAG 


1-171 






NOFRDL 


1-200 






NOIND 


1-175 






NOKMON 


1-196 






NOLDMT 


1-183 






NONEMS 


1-183 






NOOPTT 


1-189 






NOPMGN 


1-185 






NOPRG 


1-165 


1- 


-169 



8-26 



5-5 
5-11 
5-- 17 
5-23 
5-29 
5-35 
5 --41 
5-47 
5-53 
5-59 
5-65 
5-71 
5-77 
5-93# 
5-99 
5-105 
-111 
•117 
•123 
5-129 
5-135 
5-145 
5-160 
5-171 



5- 
5- 
5- 



5-6 

5-12 

5-18 

5-24 

5-30 

5-36 

5-42 

5-48 

5-54 

5-60 

5-66 

5-72 

5-78 

5-94 

5-100 

5-106 

5-112 

5-118 

5-124 

5-130 

5-136 

5-146 

5-161 

5-171 



5-6 

5-12 

5-18 

5-24 

5-30 

5—36 

5-42 

5-48 

5-54 

5-60 

5-66 

5-72 

5-78 

5-94 

5-100 

5-106 

5-112 

5-118 

5-124 

5-130 

5-136 

5-146 

5-161 

5-172 



5-7 


5-7 


5-13 


5-13 


5-19 


5 19 


5-25 


5-25 


5-31 


5-31 


5-37 


5-37 


5-43 


5-43 


5-49 


5-49 


5-55 


5-55 


5-61 


5-61 


5-67 


5-67 


5-73 


5-73 


5-79 


5-79 


5-95 


5-95 


5-101 


5-101 


5-107 


5-107 


5-113 


5-113 


5-119 


5-119 


5-125 


5-125 


5-131 


5-131 


5-137 


5-137 


5-151# 


5-152 


5-162 


5-162 


5-172 


5-173 



5-8 


5-8 


5-14 


5-14 


5-20 


5-20 


5-26 


5-26 


5-32 


5-32 


5-38 


5-3B 


5-44 


5-44 


5-50 


5-50 


5-56 


5-56 


5-62 


5-62 


5-68 


5-68 


5-74 


5-74 


5-S4# 


5-85 


5-96 


5-96 


5-102 


5-102 


5-108 


5-108 


5-114 


5-114 


5-120 


5-120 


5-126 


5-126 


5-132 


5-132 


5-138 


5-138 


5-152 


5-153 


5-167# 


5-168 


5-173 


5-174 



5-9 

5-15 

5-21 

5-27 

5-33 

5-39 

5-45 

5-51 

5-57 

5-63 

5-69 

5-75 

5-85 

5-97 

5-103 

5-109 

5-115 

5-121 

5-127 

5-133 

5-139 

5-153 

5-168 

5-174 



5-9 

5-15 

5-21 

5-27 

5-33 

5-39 

5-45 

5-51 

5-57 

5-63 

5-69 

5-75 

5-86 

5-97 

5-103 

5-109 

5-115 

5-121 

5-127 

5-133 

5-139 

5-154 

5-169 



5-10 

5-16 

5-22 

5-20 

5-34 

5-40 

5-46 

5-52 

5-58 

5-64 

5-70 

5-76 

5-86 

5-98 

5-104 

5-110 

5-116 

5-122 

5-128 

5-134 

5-140 

5-154 

5-169 
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NOSTRT 


1-168 






NOTAVL 


1-1S4 






NOTON 


1-190 


7-28 




NOT XT 


1-178 






NOUDC 


1-182 






NSPLDV 


1-121 






NSWPMS 


1-186 






NUCHN 


1-114 






NUMBCD 


1 = 13S 






NUMDEV 


1-151 






NUMOW 


1-83 






OCTFIX 


1-178 






OCTPRT 


1-198 






ODTBAS 


1-154 






OF*$SZ 


1-153 






OF$DEV 


1-152 






OF*FIL 


1-152 






OF*FLG 


1-152 






OF$UNT 


1-152 






OFFEMT 


1-192 






OKFEND 


1-96 






OKFILE 


1-96 






OPRTXT 


1-57 






DPTLST 


1-43 


6-19 




OT*RON 


1-153 






OTHRON 


1-194 






OTRMNT 


1-196 






OVRCOR 


1-168 






PO*BYP 


1-48 


25-33 




PO*DBG 


1-47 






PO*NAM 


1-45 


10-17 




PO*OPR 


1-45 






PO*SPV 


1-43 






P2*CGR 


1-40 






P2*TRM 


1-45 






PA*BEL 


1-36 






PA*BLD 


1-35 






PA*DSC 


1-35 






PA*DWD 


1-35 






PA*ORC 


1-35 






PA*HQL 


1-35 






PA*LET 


1-35 






PA$NWD 


1-36 






PA*UKC 


1-35 






PA*ULN 


1-35 






PARHD 


5-S4# 


20-10 




PASLIN 


1-134 






PAUMSG 


1-164 






PBFEND 


1-118 






PEKADR 


1-38 






PEKEMT 


1-38 






PEKSIZ 


1-38 






PF$IOW 


1-155 






PF*SYS 


1-155 






PFCO 


1-43 


4-71 


11-11 


PFSO 


1-43 


4-64 


11-10 
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PHYMEM 


i~10i 






PMBUSY 


i-ies 






PNAME 


1-151 


1- 


-174 


POPCF 


1-175 






PRGALL 


1-29 






PRGSIZ 


1-78 






PRGTOP 


1-78 






PRIVAO 


1-44 






PRIVCO 


1-47 


10- 


-17 


PRIVC2 


1-45 






PRIVSO 


1-43 






PRMBUF 


l'13i 






PRMEND 


1-131 






PRMPNT 


1-130 






PROSLT 


1-52 






PRSTRN 


22-26 


31- 


-7 


PRTBUF 


1-183 






PRTDAT 


1-199 






PRTDC2 


1-ieo 






PRTDC3 


1-180 






PRTDEC 


1-174 


8- 


-24 


PRTFIX 


1-177 






PRTFNM 


1-183 






PRFLN 


1-1/9 






PRTPCT 


1-193 






PRTR50 


1-199 






PRTSPC 


1-177 






PRTTIM 


1-199 






PRTTMD 


1-182 






PRTTMV 


1-181 






PRTTOD 


1-199 






PRTTTP 


1-178 






PRTUNM 


1-179 






PRTWRN 


1-203 






PRVLST 


1-47 






PRVOPT 


1-43 


5- 


-168 


PUSHCF 


1-166 






PVCEMT 


4~69# 


11- 


-33^J 


PVNPW 


1-43 


11- 


-12 


PVON 


1-87 






PVSEMT 


4-62# 


11- 


-32* 


QHDMSi 


1-59 






<3HDMS2 


1-59 






aUME 


1-147 






QUMEFL 


1-149 






QUMENO 


1-149 






R*CHN 


1-41 






R*XCHN 


1-41 






R50BUF 


1-170 


24- 


-36 


R50C10 


4-7# 


32- 


-18 


R50CL0 


4-6# 


32- 


-20 


R50C0M 


1-110 






R50DIR 


1-166 






R50DK 


1-199 






R50DSK 


1-172 






R50DUP 


1-167 







25-33 



31-19# 



8- 



11-45 



11-38 



33-57 
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R50HST 


4-4# 


33-37 


R50IND 


1-166 




R50K52 


1-167 




R50KED 


1-167 




R50KEX 


1-167 




R50KMN 


1-37 


33-44 


R50LD 


1-172 




R SOLDO 


1-170 




R50LD7 


1-172 




R50LDG 


1-176 




R50M0N 


1-200 




R50Nu 


1-173 




R50PIP 


1-167 




R50SAV 


1-166 




R50SY 


1-166 




R50TSX 


1-167 




R50TT 


1-195 




R50UCL 


1-167 




R50VIR 


1-168 




RC*«SZ 


1-51 




RC*AEP 


1-50 




RC*AGE 


1-50 




RC*CNT 


1-49 




RC^EXC 


1-50 




RC*FLG 


1-50 




RC*GBL 


1-50 




RC*LCG 


1-52 




RC*LEN 


1-51 




RC*NAM 


1-50 




RCfOWN 


1-49 




RC*PVT 


1-51 




RC*USE 


1-50 




RCBBAS 


1-51 




RCBEND 


1-51 




RDB 


1-139 




RDBEND 


1-139 




RDCMD 


1-164 


5-29 


RDERM 


1-168 




REMTXT 


1-57 




RESDEV 


1-153 




RJEMT 


1-37 


13-24 


RNMS 


1-179 




RONTXT 


1-184 




RSR 


1-156 




RSTPRV 


1-44 




RSTQUT 


5-43 


23-11 


RT**SZ 


1-139 




RT*NAM 


1-139 




RUNDEV 


1-107 




RUNEMT 


1-168 




RUNHD 


1-164 




RUNMS 


1-200 


23-15 


S*HICP 


1-92 




S*INWT 


1-93 




S*IOFN 


1-88 




S*IOWT 


1-145 





33-45 



€ 

I 
( 
i 
I 

5-30 5-35 6-30 14-60 23-101 23-118 24-53 33-47 • 

i 

i 

23-120# ^ 



I 

I 



TSKST2 — Keyboard SET Command MACRO V05. 05 Thursday 19-Jan-89 14:58 Page S-17 
Cross reference table <CREF V05. 05) 



S$LOW 


1-90 




S*MSWT 


1-94 




S*OTFN 


1-SS 




S*OTLO 


1-88 




S*OTWT 


1-93 




S*QMIO 


1-86 




S*QUSR 


1-145 




S*RT 


1-90 




S*SFWT 


1-93 


1-145 


S*SPCB 


1-146 




S*SPDB 


1-146 




S«SPND 


1-B7 




S*TMWT 


1-93 




S*TTFN 


1-88 




S«TTSC 


1-89 




SfTWFN 


1-se 




S9600 


1-93 


19-8 


SADM3A 


5-5 


23-81 # 


SAUTO 


5-7 


19-4# 


SBPSUF 


1-36 




SCHAIN 


1-124 




SCNOPS 


1-37 


14-56 33-12 


SD*BAK 


1-127 




SD*DEL 


1-llv 




SD*FLK 


1-120 




SD*HLD 


1-130 




SD$SNG 


1-129 




SD$WFM 


1-120 




SDBLK 


1-121 




SDBU 


1-127 




SDBUFl 


1-121 




SDCB 


1-135 




SDCBND 


1-135 




SDCBSZ 


1-140 




SDDVU 


1-139 




SDFHD 


1-132 




SDFLAG 


1-120 




SDFORM 


1-120 




SDIAB 


5-15 


23-90# 


SDNAME 


1-140 




SDSFCB 


1-119 




SDSKIP 


1-127 




SEARCH 


1-164 


24-32 


SERFLG 


1-61 




SETCL 


1-26 


24-8# 


SETDED 


5-10 


23-150# 


SETDTR 


5-16 


18-4# 


SETHD 


1-173 




SETHST 


1-26 


33-6# 


SETJMP 


23-31 


23~33# 


SETNSC 


5-46 


23-132# 


SETPAR 


5-38 


20-4# 


SETPRC 


1-27 


6-6# 


SETPRM 


4-16# 


14-9^^ 14-41* 


SETQUT 


5-42 


23-100 23-103# 


SETTNW 


5-75 


23~144# 
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SETTTB 


5-6 


5-13 


5- 


-10 


5-20 




5-62 


5-77 


23- 


-152 


23~15S# 


SETTTP 


5-40 


5-54 


5- 


-56 


5-58 


SETTTY 


1-27 


14-5# 








SETTW 


5-74 


23-138# 








SETWRD 


1-42 


20-11 


24- 


-146 




SET X ON 


5-76 


17-4« 








SF*1ST 


1-130 










SF*BSY 


1-129 










SF«HLD 


1-130 










SFFILE 


1-146 










SFFLAG 


1-132 










SFFORM 


1-129 










SFID 


1-76 










SFNMBL 


1-129 










SFQLNK 


1-132 










SFUSER 


1-146 










SH**SZ 


1-74 










SH*FLG 


1-74 










SH*NAM 


1-74 










SH*RTN 


1-74 










SH*VAL 


1-74 










SHMTHl 


1-182 










SHMTH2 


1-182 










SHOHD 


1-197 










SHRRCB 


1-51 










SHRRCN 


1-51 










SHTMSG 


1-192 










SIZEMT 


1-195 










SIZVAL 


1-169 










SJEMT 


1-37 


13-27 








SKPSPC 


1-28 


9-14 


14- 


-10 


20-6 


SLA 120 


5-31 


23-37# 








SLKDOF 


1-55 










SLKDON 


1-55 










SLMXLN 


1-203 










SMRSIZ 


1-143 










SO*NO 


1-75 










SO*NVL 


1-75 










SO*OCT 


1-75 










SOPALC 


1-66 










SOPDAT 


1-66 










SOPTIM 


1-66 










SPACEl 


1-49 










SPACE2 


1-179 










SPACE3 


1-179 










SPACES 


1-180 










SPACE6 


1-183 










SPACTV 


1-187 


1-188 








SPCF 


1-189 










SPDTXl 


1-178 










SPFLK 


1-189 










SPFUL 


1-189 










SPGEMT 


1-189 










SPLACT 


1-192 










SPLCHN 


1-92 
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SPLHD 


1-186 








SPLHLA 


1-177 








SPLPND 


1-194 








SPSNG 


1-187 


1-J89 






SPUBUF 


1-69 








SPWFM 


1-187 


1-1B8 






SQUME 


5-44 


23-S9# 






SRTSI2 


1-143 








SRTSMS 


1-194 








SRTTXT 


1-197 








SSRMAP 


1-197 








STAEMT 


4-76# 


15~26^J 


15- 


"27 


STCLBT 


5-94 


27-4# 






STCLEN 


5-9 


21-4# 






STCLGR 


5-107 


5-108 


24- 


-85# 


STCLLN 


5-120 


28-4# 






STCLNL 


24-57# 


24-62 


24- 


-69 


STCLNP 


5-131 


26-19# 






STCLOP 


5-95 


5-97 


5- 


-101 




5-125 


5-126 


24" 


-61# 


STCLPi 


26-9# 


26-20 






STCLPO 


5-130 


24-14 1# 






STCLPR 


5-152 


5-153 


5- 


-154 


STCLRfci 


tj-l4(b 


25-r>i-:# 






STCLRS 


5-135 


24-124# 






STCLSl 


24-105# 


26-14 


27- 


-16 


STCLSP 


5-138 


24-99# 






STCLVL 


5-99 


5-115 


5" 


-136 


STCLVR 


5-139 


29-4# 






STCLXB 


5-145 


25-1 1# 






STCLXN 


5-140 


24-1 19# 






STERM 


23-48# 








STHAZL 


5-28 


23-73# 






STLA36 


5-12 


5-32 


23- 


-13# 


STLGCN 


1-29 








STLOHD 


1-176 








STiMOPR 


5-39 


22-16# 






STNOVR 


1-27 


23-99# 






STPAR 


5-85 


5-86 


5- 


-87 


STPASK 


1-194 








STPFLG 


1-92 








STSPl 


16-10# 


19-9 


21- 


-17 


STTRNS 


5-64 


22-24# 






STTTSF 


5-50 


16-4# 






STTTST 


5-51 


15-4# 






STVRFY 


1-27 


23-116# 






SUBARO 


1-184 








SUB TXT 


1-197 








sues 


1-144 








SUMl 


1-193 








SUM2 


1-193 








SUM3 


1-193 








SUM4 


1-193 








SUMS 


1-194 








SUM6 


1-194 








SUM7 


1-194 









26 -e# 



5-137 24-75# 



?2-8# 



22-12 22-19 
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SUMS 1-144 

SUPCOD 1-144 

SVTIOO 1-27 5-65 23-4 5# 

SVT200 1-27 5-66 5-67 5-70 5-71 23-52# 

SVT227 1-26 5-68 23-59# 

SVT22e 1-26 5-69 23-66# 

SVT50 1-27 5-72 5-73 23 -^tt 

SWPTX 1-180 

SXBPNT 1-69 

SYASHD 1-59 

SYHDl 1-179 

SYHD2 1-179 

SYINDX 1-151 

SYNAME 1-152 

SYPSWD 1-39 

SYSAV 1-164 

SYSDAT 1-141 

SYTIMH 1-141 

SYTIML 1-141 

SYUNIT 1-151 

TAB 2-8# 

TALEMT 1-114 

TBLOVF 1-173 

TECO 1-73 

TKISEC 1-143 

TKIVAL 1-141 

TM*AUT 1-57 

TM*CDS 1-56 

TM*CEN 1-56 



TM*CL0 1-58 

' TM*CL1 1-58 

TM*CL2 1-58 

TM«CL3 1-58 

TM*CL4 1-58 

TM*CL5 1-58 

TM*CL6 1-58 

TM*CNG 1-56 

TM*GBL 1-49 

TM*HPE 1-56 

TM*HPR 1-55 

TM*IN1 1-38 

TM*IN2 1-38 

TM*LCL 1-49 

TM*LPR 1-55 

TM*NAD 1-60 

TM*NNR 1-38 

TM*NSD 1-60 

TM*PR1 1-55 

* TM*PR2 1-55 

TMSPVA 1-44 

TM*PVC 1-44 

t TM*RD1 1-49 

TM*RD2 1-49 

TM*SDN 1 -60 

< TM*XBR 1-37 33-46 



TMIDLH 1-71 
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TMIOH 


1-71 




TMIOWH 


1-70 




TMSWPH 


1-71 




TMSWTH 


1-71 




TMTOTH 


1-70 


1-193 


TMTOTL 


1-70 


1-193 


TMUSRH 


1-70 




TOTMMS 


1-197 




TOTON 


1-92 




TOTXT 


1-176 


8-25 


TRSRET 


1-144 




TRMHDl 


1-56 




TRMHD2 


1-56 




TRMSTR 


1-166 




TSKST2 


l-5# 


1-28 


TSR 


1-156 




TSXLN 


1-144 




TSXSIT 


1-144 




TSXSMS 


1-198 




TTHD 


5-4# 


14-55 


TTXCL 


4-40# 


33- lO*-- 


TXTCL 


1-91 




UC*MDC 


1-163 




UC*NDC 


l~16;i 




UCHAN 


1-112 




UCIDEF 


1-64 




UCISPC 


1-96 




UCLBLK 


1-162 




UCLCMD 


1-2S 




UCLDAT 


1-162 




UCLNAM 


1-117 




UERSEV 


1-134 




UFORM 


1-104 




UFPTRP 


1-119 




UHIMEM 


1-107 




UKMNAM 


1-85 




UMSSHS 


1-197 




UMSYTP 


1-89 




UPTMMS 


1-192 




USPLCH 


1-92 




USRMMS 


1-198 




USRSTK 


1-68 




USTART 


1-103 




UTRPAD 


1-67 




VCORTM 


1-138 




VCSHNB 


1-95 




VDBFLG 


1-82 




VHIPCT 


1-136 




VI MAGE 


1-102 




VINTIO 


1-128 




VLDSYS 


1-86 




VNUMDC 


1-138 




VPRIDF 


1-42 




VQUANO 


1-135 


1-136 


VQUANl 


1-136 




VQUAN2 


1-136 





33-17 33-22* 33-39 33-63* 33-75* 
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VQUAN3 


1-135 


1-136 










VQUNIA 


1-136 












VQUNIB 


1-128 












VQUNIC 


1-128 












VSLEDT 


1-203 












VTIOO 


1-147 


23-47 










VTIOFL 


1-149 


23-46 










VTIONO 


1-149 


23-45 










VT200 


1-146 


23-54 










VT2007 


1-146 


23-61 










VT200S 


1-146 


23-68 










VT20FL 


1-150 


23-53 


23 


-60 


23- 


67 


VT20N0 


1-150 


23-52 


23- 


-59 


23 


-66 


VT52 


1-147 


23-8 










VT52FL 


1-148 


23-7 










VT52N0 


1-126 


23-6 










WILDFL 


1-72 












WINSTT 


4-S2# 


23-24 










WLDNAM 


2-12# 












XAREA 


1-165 


23-107 


23- 


-110 


23- 


-124 


XONEMT 


4-52# 


i7-5'fe- 


17- 


-6« 


17- 


-7 


YESTXT 


1-178 












ZCLR 


1-156 













23-127 24-132 30-36 32- 
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. . . CMl 


24-132 


30-36 


32-22 




















. . . CM2 


23-107 


23-110 


23-110 


23-124 


23-127 


23-127 


24-132 


24-132 


24-132 


24-132 


24-132 


24-132 




30-36 


30-36 


30-36 


30-36 


30-36 


32-22 


32-22 












. . . CM3 


24-134 


24-136 


30-37 




















. . . CMS 


8-25 


8-28 


23-107 


23-110 


23-124 


23-127 


24-132 


30-36 


32-22 


33-46 






. . . CM6 


23-107 


23-110 


23-124 


23-127 


















, CLOSE 


l-20# 


24-134 


30-37 




















. CSIGE 


i-ie# 
























. CSISP 


1-16# 
























. DATE 


1-19# 
























. ENTER 


1-21# 
























. EXIT 


1-21# 
























. FPROT 


l-22# 
























. GTIM 


1-19# 
























. GTLIN 


1-19# 
























. GVAL 


l-22# 


23-107 


23-124 




















. HERR 


l"-22# 
























. LOOKU 


l-20# 


32-22 






















. PRINT 


l-20# 


8-25 


8-28 


33-46 


















. PURGE 


1-17# 


24-136 






















. PVAL 


i-22# 


23-110 


23-127 




















. READW 


1-17# 
























. REDPE 


1-1S# 
























. SAVES 


1-1S# 
























. SERR 


l-22# 
























. SPFUN 


1-19# 


24-132 


30-36 




















. SRESE 


1-16# 
























. TTOUT 


1-16# 
























. TTYIN 


1-17# 
























. TTYOU 


1-17# 
























. WRITW 


1-21# 
























CMDDEF 


3-47# 


5-5 


5-6 


5-7 


5-8 


5-9 


5-10 


5-11 


5-12 


5-13 


5-14 


5-15 




5-16 


5-17 


5-18 


5-19 


5-20 


5-21 


5-22 


5-23 


5-24 


5-25 


5-26 


5-27 




5-28 


5-29 


5-30 


5-31 


5-32 


5-33 


5-34 


5-35 


5-36 


5-37 


5-38 


5-39 




5-40 


5-41 


5-42 


5-43 


5-44 


5-45 


5-46 


5-47 


5-48 


5-49 


5-50 


5-51 




5-52 


5-53 


5-54 


5-55 


5-56 


5-57 


5-58 


5-59 


5-60 


5-61 


5-62 


5-63 




5-64 


5-65 


5-66 


5-67 


5-68 


5-69 


5-70 


5-71 


5-72 


5-73 


5-74 


5-75 




5-76 


5-77 


5-78 


5-79 


5-85 


5-86 


5-87 


5-94 


5-95 


5-96 


5-97 


5-98 




5-99 


5-100 


5-101 


5-102 


5-103 


5-104 


5-105 


5-106 


5-107 


5-108 


5-109 


5-110 




5-111 


5-112 


5-113 


5-114 


5-115 


5-116 


5-117 


5-118 


5-119 


5-120 


5-121 


5-122 




5-123 


5-124 


5-125 


5-126 


5-127 


5-128 


5-129 


5-130 


5-131 


5-132 


5-133 


5-134 




5-135 


5-136 


5-137 


5-138 


5-139 


5-140 


5-145 


5-146 


5-152 


5-153 


5-154 


5-160 




5-161 


5-162 


5-168 


5-169 


5-170 


5-171 


5-172 


5-173 


5-174 








FABORT 


3-15# 


7-27 


7-28 


10-34 


10-35 


11-59 


11-63 


13-38 


14-36 


15-10 


15-16 


15-22 




16-20 


17-11 


18-15 


21-15 


23-153 


24-11 


24-45 


24-49 


24-57 


24-115 


24-137 


25-35 




26-15 


27-15 


27-17 


28-25 


28-28 


28-31 


28-34 


28-37 


29-9 


30-47 


31-26 


31-40 




31-57 


32-32 


33-20 


33-25 


33-32 


33-66 














FERR 


3-4# 


8-22 


9-55 




















FWARN 


3-23# 
























TBLDEF 


3-35# 


5-4 


5.-84 


5-93 


5-151 


5-159 


5-167 












TBLEND 


3-6 1# 


5-80 


5-88 


5-147 


5-155 


5-163 


5-175 












TSX-Plu 


sTSX-Plus 


TSX~PlusTSX- 


-PIubTSX- 


-PlusTSX-Pl 


usTSX 






-Plus 


TSX-PlusTSX- 


-PlusTSX-PlusTSX-Pl 


usTSX-Pl 


usTSX-PlusTSX-Pl 


usTSX-PlusTSX-PlusTSX-PlusTSX- 
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Sy stems. 


Inc. SX-Pl 


usTSX-PlusTSX-PlusTSX- 


-PlusTSX- 


-PlusTSX-l 



rsx-pi 

PlusTSX- 
sTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTS 
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